IDENTIFICATION 


PRODUCT 

PRODUCT 

DATE: 


CODE : DEC-08- LBASA-A-LA 

NAME: LISTING OF BASIC-8 

FEBRUARY 10, 1972 


.^W10l97U, ;i j 



/^«IC,L«E 


PAL8-V7 


1 



/BASIC. L8E 


/ L A B • 8 \ E BASIC 

/ 

/ COPYRIGHT 1971, OIGXTAL EQUIPMENT CORPORATION 

/ MAYNARO, MASS. (01754) 

/ 

/ WRITTEN BY JACK BURNESS 


/ 

/ 

/ 

/ 


THIS BASIC IS A COMBINATION OP LAB-8/E BASIC 
AND SKwBASIC POR THE POP-8, TO CREATE IT 
FOR THE LAB-8/E SET "MACHINE* l » , TO CREATE IT POR 
THE POP-8 SET H MACHINE»0" , 


0000 MACHINES 


/ 

/ 


THIS CODE OVERLAYS THE BINARY LOADER IN FIELD 
ONE TO MAKE LAB-8/E BASIC SELF STARTING, 


XPNZRO 

MACHINE 

FIELD 

1 

*7700 

JMP I 

UGETWD 

*6000 

OCA 

UTEMP 

TAO 

xnthlt 

OCA I 

INTPLC 

TAO 

UTEMP 

SZA 

JMP I 

INTPLC 

CXF COP 

0 




ic.lse 


FAL8-V7 


JMP I .♦! 
START 


INTmlT, HLT 
JNTPiC, 7700 


» 


/BASIC A ,52 


0000 FIELD 0 


i 




/TO HELF BINARY LOADER IN CASE HE BLOWS IT, 



Z00000 

/ J SYSTEM l 

/1 1000 

/ ARRAY l 

/ i SPACE l 

/ 

/ 1 FREE l 

/ 

/ 1 CODXFIEO 1 

/ 1 BASIC l 

/ 

/ 1 SYMBOL 1 

/ I TABLE i 

/ 

/ I LXNEBUF 1 

t «••■•••••••* 

/ 1 STACK 1 

/ 

/ l FORLXST 1 

/ 

/ 1 COLIST 1 

/17756 

/ l RIM l 

/ 1 LOADER 1 

/ 1 7777 -♦ 


/R200 ♦ 

/««0l 

/4302 * 

/«S03 / 

/<M»0« * 

/ai05 • 

/R10S < 

/«107 > 



/WIC.L6E 


✓ 41 10 


✓ 4111 

>■ 

✓ 4111 

■ > 

✓ 4U2 

o 

✓ 4213 

CUMIHJS) 

✓ 4014 

(DONE) 

✓ 4015 

* 

✓ 4016 

1 

✓ 401 T 

) 

✓ 4021 

TO 

✓ 4022 

step 

✓ 4023 

c 

✓ 4024 

FN 

✓ 4025 

COS 

✓ 4026 

TAN 

✓ 4027 

ATN 

✓ 4030 

LOG 

✓ 4031 

EXP 

✓ 4032 

SQR 

/4033 

APS 

✓ 4034 

S'*N 

✓ 4035 

HT 

✓ 4036 

RNO 

✓ 4037 

SIN 

✓ 6000 

(CRLF) 

✓ 6000 

\ 

✓ 6001 

END 

✓ 6002 

FOR 

✓ 6003 

G08UB 

✓ 6004 

GOTO 

✓ 6004 

THEN 

✓ 6005 

XF 

✓ 6006 

INPUT 

✓ 6007 

LET 

✓ 6010 

NEXT 

✓ 6011 

PRINT 

✓6012 

RETURN 

✓ 6013 

STOP 

✓ 6014 

DIM 

✓ 6015 

RESTORE 

✓ 6017 

OEF 

✓ 6020 

READ 

✓ 6021 

DATA 

✓ 6022 

(EXIT) 

✓ 6023 

(EOF) 


0000 FEX XT»0000 
0040 F3NE«0040 

0050 F3EQ«0050 

0100 FSGE*0100 

0110 FSUT*0l 10 
0140 FSGT«0140 

0150 FSLE«0150 


PAL8-V7 




PAL8-V7 




I2?e FjMp«iB0e 
1400 FJw*I*|400 

2000 FST«2000 

2402 FSTX*2400 

3000 FLD* 3000 
3600 FLOI-3600 

4000 FA0I4000 

4400 FADI*4400 

5000 FSB*5000 

5400 FSB I *5400 
6000 FMP*6000 

6400 FMPI *6400 
7000 FOW7000 

7400 FOV 1*7400 
0200 FWD*200 

0600 BKmD*600 


6530 ADCL*653r 

6531 A0LM«6S3* 

6932 A0$T*6532 

6533 A0RB*6533 

6534 ADSK46534 

6535 ADSE*6535 

6536 A0LO6536 

6537 ADR8*6537 

6050 DXLC«6050 

60S! OICD«6051 

6052 0X80*6052 

6053 0X1X46053 

6054 0X1.7*6054 

6055 01X7*6055 

6056 DILE*6056 

6057 OXRE*6057 

6134 CLEN«6134 

6133 CLAB*6133 

6132 CL0E*6132 

6130 CLZE*6130 

6131 CLSK*6131 

6137 CLCA*6137 

6135 CLSA*6135 

6136 CLBA*6136 


0000 *0 




PAL8-V7 


1-5 


rsic.use 


?c??e 

0?0? 


0 

?eeei 

5402 


JMP I 

??e?2 

6600 


INTER 

00003 

0000 

ARRLOC, 

0 

peeea 

0000 

codeloc 

,0 

00025 

3000 

PSYMTAB 

,0 

00006 

0003 

NSYMTAB 

#0 

0eeeT 

0215 

0215, 

215 

00010 

0212 

0212, 

212 

00011 

0260 

0260, 

260 

00012 

0000 

ov, 

0 

00013 

0000 

INDEX1, 

0 

000 1 A 

0000 

IN0EX2, 

0 

00015 

0000 

OISAUTO 

,0 

00016 

0000 

AC3, 

0 

00017 

0000 

AC2 , 

0 

00020 

0000 

AC 1 , 

0 

00021 

0000 

0P3, 

0 

00022 

e200 

0P2, 

? 

00023 

0000 

0P1, 

L 

00024 

0000 

ACS, 

0 

00025 

0000 

ACE, 

0 

00026 

0000 

OPS, 

0 

00027 

0177 

0177, 

177 

00030 

0000 

OPE, 

0 

00031 

0000 

TMP, 

0 

00032 

7201 

PGETCH, 

GETCH 

00033 

0741 

PPUTCH, 

PUTCH 

00034 

0000 

OIMPLAG 

»0 


4435 

PENTERiJMS I ,|l 

00035 

4200 



00036 

0000 

POL, 

0 

00037 

7512 

PLXNBUP 

,l!NBUF 

00040 

0266 

MLINBUF 

,-LXNBUF 

00041 

0135 

MENDLIN 

,-ENDLXN 

00042 

0000 

PRTEMP, 

0 

00043 

0000 

OECEXP, 

0 

00044 

5335 

PNUMBUP 

, NUMBUF 

00045 

0000 

LOCCTR, 

0 

00046 

0000 

READIOC 

,0 

00047 

7363 

PARGERR 

, ARGERR 

00050 

0000 

MORD, 

0 

00051 

0240 

0240, 

240 

00052 

0000 

LINENO, 

0 

00053 

0000 

GOTEMP, 

0 

00054 

7740 

07740, 

7740 

00055 

7770 

07770, 

7770 

00056 

0000 

EPTR, 

0 

00057 

0000 

FPTR, 

0 

00060 

0000 

GPTR, 

0 

00061 

0000 

rtPTR, 

0 

00062 

0002 

02, 

2 

00063 

0000 

FORCT, 

0 


/InTERUPT routines, 

/UP, UP AND AWAY, 



PAL8-VT 




aeefca mz snumflg,0 

00065 0012 C 1 2 » 12 

00066 0000 OlOOP, 0 

00067 0000 AODRfcSS,0 

00070 0077 077, 77 

00071 0377 0377, 377 

00072 0007 07, 7 

00073 0000 OPERAND, 010)0 

P0P7a 0000 

00075 0000 

00076 7501 PTEXT, XXTEXT 

00077 41 ag PERROR, ERROR 

00100 6aai PSXERR, SXERR 

00101 100a PEvAL, EVAU 

00102 1 A00 PGE7A0D , GETADDR 

00103 0213 PEXECUT, EXECUTE 

0010a 236a PPUSH, PUSH 

00105 3551 PPOP» POP 

00106 47aa PFJX, FIX 

00107 1202 PGOTOPR , G DTOPR 

00110 0472 PPA33CR,) aSSCR 

00111 1015 PGETOPR , GETOPR 

00112 0341 P3T0VAR , 3T0VAR 

00113 0311 PGETVAR ,GETVAR 

00114 3702 PPRINTX ,PRXNTXT 

00115 1674 PGET0LK,GETBLK 

00116 2707 P3L00P, SLOOP 

00117 5000 POUTNIJM'OUTNUM 

00120 2405 PEOIT , EDIT 

00121 6430 P8TICKI , 3TICKIT 

00122 3110 PNONBLN,NONBLNK 

00123 3747 PPRINUM , PRINUM 

00124 2603 PGETLINiGETLZN 

00125 7644 PPDLXST,PDL18T 

00126 0000 COLUMN, 0 

00127 0000 XNDEV, 0 

00130 0000 0UTD2, 0 

00131 0000 OUTOEV, 0 

00132 0000 OOEV , 0 

00133 0000 CNTLO, 0 

00134 0000 NOINT, 0 /THIS PREVENTS INTERUPTS DURING CRITICAL TIMES. 

00135 0000 RBSWCH, 0 

00136 0000 DI3B, 0 

00137 7116 PRESET, RESETl 

00140 7465 SPECXNT ,CCXNTK 

00141 7326 PCOHT, COWT 

00142 7146 OELOUT, OUTOEL 

00143 0360 CNCLR » CLRCNT 

00144 6413 SPLEFT, RMLEFT 

00145 0000 PTEN, TEN 

00146 4600 PANORM, ANORM 

00147 4402 PARI, AR1 

00150 4654 PALI t AL1 

00151 2014 ONE, 2014 

00152 0000 ZERO, 0)0)0 



'SIC. 181 


PAL8-V7 


1-7 


88153 

0800 


80154 

0000 


80 1 55 

0200 

0200, 200 

0P156 

0000 

FPPLAG, 0 

00157 

4435 

POAOO* Q ADD 

peua 

0004 

04, 4 

00161 

2330 

PlINFJx, LINPIX 

00162 

7745 

07745, 7745 

00163 

6400 

pchkpit,cmkpit 

00164 

7725 

PG0LI9T,G0LI3T 

00165 

0000 

GSBPTR, 0 


0001 

GET-1 


4566 

ISIT«JM3 I .7XISITMGISIT 

00166 

4073 


00167 

4066 



4570 

MUSTBE* JM3 I , | XMUSTl XGMUST 

00170 

7352 


00171 

7345 


00172 

7563 

plbegxn.lbegxn 

00173 

0214 

mlbegxn,-lbegin-i 

00174 

0074 

HLENO, -*NOPOL 

00175 

4104 

PI8ITLI > 3 8XTLXT 



0200 


PAGE 




0177 


*•-1 



00177 

0000 

GETWD, 

0 



00200 

1445 


tad I 

LOCCTR 


00201 

3050 


OCA 

WORD 


00202 

2045 


X9Z 

LOCCTR 


00203 

5577 


JMP X 

GETWD 


00204 

0205 

pletoo, 

letdo 



00205 

4570 

LETOO, 

MUSTBE 


/'■* 

00206 

3673 


3673 



00207 

4501 


JMS X 

PEVAL 


00210 

4570 


MUSTBE 


/ CCR) OR 

00211 

2000 


2000 



00212 

4341 


JM8 

3T0VAR 


00213 

4177 

EXECUTE 

»JMS 

GETWD 


00214 

1204 


TAD 

PLETOO 


00215 

3311 


DCA 

GETVAR 


00216 

1450 


TAD X 

WORD 


00217 

7510 


SPA 



00220 

5231 


JMP 

KEYWD 


00221 

7640 


SZA CLA 


/IS XT A LINENO 

00222 

5313 


JMP 

NOTKWO 

/NO 

00223 

1050 


TAD 

WORD 




PAL8-V7 





1-8 


00224 

3052 


OCA 

LiNENO 


80225 

• 177 


J*$ 

GET wD 


00226 

1450 


TAO I 

hORO 


02227 

7700 


SMA cla 



20230 

5313 


JMP 

NOTKwO 


20231 

7332 

KEYWDi 

CLA CLL 

CMt rtr 


00232 

1 450 


TAO I 

mORO 


20233 

7420 


$nl 


/IS IT A STATEMENT WORD 

00234 

5500 


JMP I 

P8XERR 

/NO 

00235 

1240 


TAD 

S JUMP 


80236 

3237 


OCA 

.♦1 


00237 

7#e2 


HLT 



00240 

5641 

S JUMP t 

JMP I 

.♦1 


00241 

0213 


EXECUTE 



00242 

2567 


END 



00243 

0413 


FOR 



00244 

0505 


G09UB 



00245 

051? 


GOTO 



00246 

0375 


IF 



00247 

4007 


INPUT 



00250 

0312 


LtT 





/WTC.liE 


PAL8-V 


00251 

0600 

NEXT 

20252 

2173 

PRINT 

00253 

0677 

RETURN 

2?25« 

2570 

STOP 

00255 

6472 

OIM 

00256 

3773 

RESTORE 

00257 

0467 

SKIPIT 

00260 

1576 

OEF 

00261 

1623 

READ 

00262 

0467 

SKIPIT 

00263 

2402 

EXIT 

0026 A 

2570 

STOP 

00265 

7173 

TTYXN 

00266 

7165 

TTYOUT 

00267 

7163 

LPTQUT 

00270 

7164 

PTPOUT 

02271 

7172 

r TR IN 

00272 

6441 

SXERR 

00273 

5573 

RUBO 

0027 A 

5574 

NORUBO 

irwzRO 

CLEAR 

delay 

USE 

PLOT 

REALTIME 

8ETRATE 

SETCLOCK 

WAITC 

WAIT 

SXERR 

ACCEPT 

REJECT* 

IPZERO 

00275 

6441 

SXERR 

00276 

6441 

SXERR 

00277 

6441 

SXERR 

00300 

6441 

SXERR 

00301 

6441 

SXERR 

00302 

6441 

8XERR 

00303 

6441 

SXERR 

00304 

6441 

SXERR 

00305 

6441 

SXERR 

00306 

6441 

SXERR 

00307 

6441 

SXERR 

00310 

6441 

SXERR 


MACHINE* 


MACHINE* 


> 



/THIS SLOT IS NOW FREE, (6031) 


/"UCOM" USER COMMAND, 



?P3il 

0000 

GETVAR, 

0 


a i 77 

LET, 

JMS GET wD 

/?3i 3 

457 0 

NOTKwDi 

MUSTBE /A VARIABLE 

' P 1 1 4 

7000 


7000 

"'EM 5 

105? 


TAD »ORD 

30316 

3343 


OCA VAR 

3031 7 

3344 


DCA SSONE 

30320 

3345 


OCA SSTWO 

30321 

4567 


GETtISIT /*(* 

00322 

3755 


3755 

00323 

57U 


JMP I GETVAR /no 

30324 

4501 


JMS I PEVAL 

00325 

4506 


JMS I PFIX 

30326 

3344 


OCA SSONE 

00327 

4566 


XSIT /*,* 

00330 

3761 


37b3 

00331 

5335 


JMP NOCOMMA /NO 

00332 

4501 


JMS I PEVAL 

00333 

4506 


JMS I PFIX 

00334 

33«5 


OCA SSTWO 

00335 

4570 

NOCOMMA 

, MUWBE /*)* 

00336 

3761 


3761 

0033T 

4177 


JMS GETMO 

00340 

5711 


JMP X GETVAR 

00341 

8000 

9T0VAR, 

0 

00342 

4502 


JMS X PGETAOOR 

00343 

0000 

VAR, 

0 

00344 

0000 

SSONE, 

0 

00345 

0000 

S8TM0' 

0 

00346 

4435 


FENTER 

00347 

2467 


FSTI ADORESS 

00350 

0000 


FEXXT 

00351 

5741 


JMP I STOVAR 

00352 

4477 

FNERR, 

JMS X PERROR 

00353 

0625 


TEXT 'FUNCTION* 

00354 

00355 

00356 

00357 
00360 

1603 

2411 

1716 

0000 

0000 

CURCNT, 

0 /ROUTINE WHICH CHECKS STATUS OF CONTROL C FLAG 

00361 

7201 


CLA XAC 

00362 

1134 


TAD NOINT /WAS XT SIT TO -it 

00363 

7650 


SNA CLA 

00364 

5767 


JMP X PB0M8 /YEP, GIVE STOP MESSAGE, 

00365 

3134 


OCA NOINT /NOPE, RESET XT, 

00366 

5768 


JMP I CLRCNT /AND EXIT 

00367 

6670 

PBOMB, 

CNTLCR 

00370 

4477 

SPACERR 

, JMS 2 PERROR 

00371 

2417 


TEXT 'T00-8XG* 



22372 1755 

22373 22U 

22 374 2723 


20375 

4521 

IF, 

J*S I 

PEVAL 

22376 

4435 


F» MER 


00377 

2073 


Fit 

OPERAND 

20420 

0000 


FEXIT 


22«ei 

4570 


MU9TBE 


00402 

1774 


1774 


00403 

1073 


TAD 

OPERAND 

00404 

7750 


SPA SNA 

CLA 

00405 

5267 


JMP 

SKXPIT 

00406 

4567 


GET+X8XT 

00407 

0000 


0000 


00410 

5612 


JMP X 

XEXECU 

00411 

5320 


JMP 

GOTO*! 

00«12 

0214 

XEXECU, 

EXECUTE*! 

00413 

4571 

FOR, 

GET+MUSTBE 

00414 

7000 


7000 


00415 

4357 


JM3 

FINOIT 

00416 

5235 


JMP 

NOTHERE 

00417 

7201 


CLA ZAC 


00420 

1013 


TAD 

INDEX 1 

00421 

3014 


OCA 

INDEX2 

00422 

7240 


CLA CMA 


00423 

1013 


TAD 

INDEX 1 

00424 

3013 


OCA 

INDEX 1 

00425 

5232 


JHP 

INLUPF 

00426 

1414 

LUFF, 

TAD I 

XNDEX2 

00427 

3413 


OCA X 

XNDEXi 

00430 

1414 


TAD I 

INDEX2 

20431 

3413 


OCA X 

XNDEXI 

00432 

2053 

INLUFF, 

IBZ 

GOTEHP 

20433 

5226 


JMP 

LUPF 

00434 

2063 


IBZ 

FORCT 

00435 

1063 

MOTHERS 

, TAO 

FORCT 

00436 

1304 


TAO 

on 

00437 

7750 


8PA SNA 

CLA 

00440 

5301 


JHP 

FORERR 


/•THEN' 


/A LXNENO 


/A VARIABLE 


/CAN* T FIT 9 IN FORLXST 



PA L8-V? 



AS!C,l«C 


rGE 2-3 



00641 

1050 

TAD 

wORD 

ppaa2 

7041 

CIA 


?e<*«3 

3413 

OCA I 

I NOE X 1 

?r**aa 

1050 

TAD 

w OR 0 

00445 

3252 

OCA 

forvar 

00446 

4571 

GET*MUST8E 

00447 

3673 

3673 


00450 

45ei 

JM8 I 

PEVAL 

00451 

4502 

JMS I 

PGETAOOR 

00452 

2000 FORVAR, 

0 


00453 

0000 

0 


0045a 

0000 

0 


00455 

4435 

FENTER 


00456 

2467 

FST I 

ADDRESS 

00457 

0000 

FEXIT 


00460 

4570 

MU3TBE 


00461 

3757 

3757 


00462 

1045 

TAD 

LOCCTR 

00463 

3413 

DCA I 

INDEX 1 

00464 

7240 

CLA CM A 


00465 

1063 

’AO 

FORCT 

00466 

3063 

OCA 

FORCT 


00467 

00470 

4671 

5503 

SKIR1T, 

JMS X 
JMP X 

PIGNORE 

PEXECUTE 

/LOOK FOR «V» OR C,R, 

/AND EXECUTEPTHE NEXT STATEMENT 

00471 

2115 

PIGNORE, 

) IGNORE 




00472 

0000 

PASSCR, 0 


/THIS LOOKS FOR A REAL C.R 

00473 

4671 

JMS I 

PIGNORE 

/LOOK FOR «\» OR C.R, 

00474 

2050 

XSZ 

WORD 


00475 

4566 

I3IT 



00476 

4100 

4100 


/A REAL C,R, 7 

00477 

5273 

JMP 

• -4 

/NOPE. A SLASH, 

00500 

5672 

JMP X 

PASSCR 

/AND RETURN TO CALLER, 



1 S I C , 1 8 E 


PA18-V7 


rGE 2«4 



ffeSwM 

4477 

FORERR, 

JMS I 

PERHOR 

23502 

0617 


TEXT 'FOR' 

035C3 

2230 




00504 

2011 

Oil, 

11 


005C5 

4177 

GOSUB , 

JMS 

GETWD 

00536 

4332 


JMS 

GOBOTH 

30507 

1165 


TAD 

GSBPTR 

00510 

1325 


TAD 

MGSBEND 

00511 

7650 


SNA CIA 


00512 

5326 


JMP 

DEEPERR 

00513 

1045 


TAD 

LOCCTR 

00514 

3565 


OCA X 

GSBPTR 

00515 

2165 


X8Z 

GSBPTR 

00516 

5321 


JMP 

G0T0+2 

00517 

4177 

GOTO! 

JMS 

GETWD 

00520 

4332 


JMS 

GOBOTH 

00521 

2053 


ISZ 

GOTEMP 

00522 

1453 


TAO I 

GOTEMP 

00523 

3045 


OCA 

LOCCTR 

00524 

5503 


IMP I 

PEXECUTE 

00525 

0023 

MG8BEND 

, -GSBEND 


00526 

4477 

DEEPERR 

! JMS I 

PERROR 

00527 

0717 


TEXT *GOSUB # 

00530 

2325 




00531 

0200 




00532 

0000 

GOBOTH, 

0 


00533 

4570 


MUSTBE 

/A LXNENO 

00534 

0000 


0000 


00535 

1050 


TAD 

WORO 

00536 

3053 


OCA 

GOTEMP 

00537 

2050 


X8Z 

WORO 

00540 

4566 


X8IT 

/DEFINED 

00541 

0000 


0000 


00542 

5350 


JMP 

ISITDF 

00543 

4477 


JMS X 

PERROR 

00544 

1411 


TEXT 'LXNENO* 

00545 

1605 




00546 

1617 




00547 

0000 




00550 

4571 

I8ITOF, 

GEUMUSTBE /(CR) OR 

00551 

2000 


2000 


00552 

5732 


JMP I 

GOBOTH 

00553 

0000 

VARTEMP 

,01010 


00554 

0000 




00555 

0000 




00556 

7704 

PXFORLX 

, FORLIST 

-1 

00557 

0000 

FXNDXT, 

0 


00560 

1063 


TAO 

FORCT 

00561 

3053 


OCA 

GOTEMP 

00562 

1356 


TAO 

PXFORLIST 

00563 

3013 


OCA 

INDEX 1 

00564 

5372 


JMP 

XNLOOP 

00565 

1413 

FXNOLUP 

,TAD I 

INDEX1 

00566 

1050 


TAO 

WORD 



PA18-V? 


E 2-5 


r*sic.L«c 


02567 

7650 


SNA CLA 




22572 

5375 


JMP 

FOUND 



eesri 

2213 


isz 

indexi 



00572 

2253 

INLOOP, 

1SZ 

GOTEMP 



00573 

5365 


JMP 

FINDLUP 



00574 

5757 


JMP I 

FINDIT 



00575 

2357 

FOUNO, 

xsz 

FINDXT 



00576 

5757 


JMP I 

FINDIT 




2600 


PAGE 




00600 

4571 

NEXT, 

GET*MUSTBE /A VARIABLE 

00601 

7000 


7000 




00602 

4672 


JM3 I 

PFINDIT 



00603 

5273 


JMP 

NEXTERR 



00604 

1050 


tad 

WORD 



00605 

3237 


DC A 

NEXTVAR 



00606 

4571 


GET*MUSTBE /(CR) 

OR 


00607 

2000 


2000 




00610 

1045 


TAD 

LOCCTR 



00611 

3271 


;CA 

LOCTfcMP 



00612 

1413 


TAO I 

INDEXI 



00613 

3045 


DCA 

LOCCTR 



00614 

4501 


JMS I 

PEVAL 



00615 

4435 


RENTER 




00616 

2303 


FSTwFWDpFORLIM-. 



00617 

0000 


FEXIT 




00620 

4566 


XSIT 

/(CR) 

OR 

# \ # 

00621 

2000 


2000 




00622 

5226 


JMP 

TRYSTEP /NO 



00623 

4435 


. FENTER 




00624 

3151 


FLD 

ONE 



00625 

1207 


FJMPPFWDtGOTSTEP*, 



00626 

4570 

TRYSTEP 

, MUSTBE 

/'STEP 

$ 


00627 

3756 


3756 




00630 

4501 


JMS X 

PEVAL 



00631 

4570 


MUSTBE 

/(CR) 

OR 


00632 

2000 


2000 




00633 

4435 


FENTER 




00634 

2270 

60T8TEP 

,FST+FWD+FORSTEP-, 



00635 

0000 


FEXIT 




00636 

4502 


JMS I 

PGETADOR 



00637 

0000 

NEXTVAR 

#0 




00640 

0000 


0 




00641 

0000 


0 




00642 

4435 


FENTER 




00643 

3467 


FLDI 

ADDRESS 



00644 

4260 


FA0*FWD*F0R8TEP- t 



00645 

2672 


FST+BKWDp.-VARTEMP 



00646 

5253 


FSB*FWD*FORLIM-. 



00647 

0000 


FEXIT 




00650 

1024 


TAD 

ACS 



00651 

1324 


TAD 

FORSTEP 



00652 

7700 


SMA CLA 




00653 

1020 


TAD 

AC 1 





ii.SK 

.L6E 


PAU8-V7 

ifiE 2-6 


• 

??6*>4 

7640 

sza cu a 





30655 

5263 

JMP 

FORDONE 




C2656 

4435 

FENTtR 





03*57 

3704 

FLD*BKwD*,»VART£MP 




006*0 

2467 

FST I 

ADDRESS 




00661 

0300 

FEXIT 





00662 

5503 

JMP I 

PEXECUTE 




20663 

1271 

FORDONE, TAD 

LOCTEMP 




eefefcft 

3045 

DCA 

LOCCTR 




006*5 

2063 

isz 

FORCT 




22666 

2053 

I8Z 

GOTEMP 




22667 

5265 

JMP 

#•2 




2e670 

5503 

JMP 1 

PEXECUTE 




2067J 

3000 

LOCTEMP , 0 





00672 

0557 

PFINDIT ,FINDIT 





00673 

4477 

NEXTERR , JM$ I 

PERROR 




0067a 

1605 

TEXT 'NEXT* 




00675 

3024 






00676 

0000 






00677 

4571 

RETURN, GET*MUSTBE /(CR) OR 




00700 

2000 

3.000 





00701 

1165 

TAD 

G3BPTR 




00702 

1320 

TAD 

MGOLXST 




00703 

7650 

SNA CLA 





00704 

5313 

JMP 

RETNERR 




00705 

7240 

CLA CMA 





00706 

1165 

TAD 

GSBPTR 




00707 

3165 

DCA 

G8BPTR 




00710 

1565 

TAD X 

GSBPTR 




00711 

3045 

DCA 

LOCCTR 




00712 

5503 

JMP X 

PEXECUTE 




00713 

4477 

RETNERR , JMS X 

PERROR 




00714 

2205 

TEXT 'RETURN* 




00715 

2425 






00716 

2216 






00717 

0000 






00720 

0053 

MGOLXST , -GOLI3T 





00721 

0000 

FORLXM, 07010 





00722 

0000 






00723 

0000 






0e724 

0000 

FORSTEP ,070 





00725 

0000 






00726 

0000 

SGN, 0 





00727 

4435 

FENTER 



' 


00730 

0100 

FSOE 





00731 

3205 

FLD*FWD*MN80NE- t 




0e732 

0150 

fsle 





00733 

3151 

FLO 

ONE 




00734 

0000 

FEXXT 





00735 

5726 

JMP I 

SGN 




00736 

6014 

MN80NE, 60147070 




00737 

0000 






00740 

0000 






0e7al 

0000 

PUTCH, 0 





007«2 

3326 

DCA 

SGN 






^^A$xc 

• L®E 


PAL6-V7 

^J^CE 2-7 

32743 

1326 

TAO 

8GN 


33744 

3027 PCCUNT, 

A NO 

0177 


?r7a5 

1374 

TAO 

07763A 


337*6 

7640 

SZA CLA 


/IS IT A C.R, 

33747 

5357 

JMP 

PNOCR 

/NOPE. 

25752 

1344 

TAO 

PCCUNT 

/ADO IN EXTRA PLACES FOR GOOO LUCK. 

33 751 

1126 

TAD 

COLUMN 

/SAVE COLUMN POSITION 

25752 

3237 

OCA 

NEXTVAR 


32753 

3126 

OCA 

COLUMN 




PAL8-V7 



S I C . LS£ 



3 


20754 

1237 


TAD 


NEXT VAR 

20755 

0376 


AND 


PUTXRA 

2075 6 

7110 


CLL 

RAR 


22757 

7170 

pnocr, 

CLL 

CMU 

CHA RAR 

eeY60 

3237 


OCA 


NEXTVAR 

007^1 

1326 


TAD 


SGN 

00762 

0375 


AND 


0 1 40 A 

00763 

7440 


SZA 



00764 

1365 


TAD 


O7640A 

00765 

7640 

07640 A , 

SZA 

CLA 


0 e ?66 

2126 


isz 


column 

00767 

1326 


TAO 


SGN 

00770 

4777 


JMS 

1 

JPUTCH 

007 71 

2237 


ISZ 


NEXTVAR 

00772 

5370 


JMP 


,-2 

00773 

5741 


JMP 

I 

PUTCH 

007 7 A 

7763 

07763 A | 

7763 



00775 

0140 

O140A, 

140 



00776 

0000 

PUTXRA, 

1 



00777 

7000 

JPUTCH, 

PUTER 



/BEGET WHERE WE WERE, 

/ARE WE INSERTING NULL CHARACTERS? 

/NOW DIVIDE BY 2, 

/AND NOW INVERT ANQ DIVIDE 8Y 2 AGAIN, 
/SAVE FOR LATER USE, THIS IS NULL COUNTER 
/RECALL THE CHARACTER. 


/INCREMENT THE COUNTER 

/GIVE NULLS UNTIL IT'S SATISFIED, 


/NULL AFTER C | R t WORD, 



1000 

PAGE 


01000 

4603 

START, JMS X 

XRESTA /REST FLAGS AND DEVICES 

01001 

5602 

JMP I 

.♦1 

01002 

2440 

SCRATCH 


01003 

7407 

XRESTA , ISET 


01004 

0000 

EVAL> 0 


01005 

4177 

JMS 

GETWD 

01006 

1204 

TAD 

EVAL 

01007 

4504 

EVALGOi JMS I 

PPUSH 

01010 

1363 

TAD 

04014 

01011 

4504 

JMS I 

PPUSH 

01012 

5216 

JMP 

GETOPR^l 

01013 

1364 

I8UMIN, TAD 

04213 

01014 

4504 

JMS I 

PPUSH 

01015 

4177 

GETOPR, JMS 

GETWD 

01016 

4566 

ISIT 

/«.• 

01017 

3577 

3577 


01020 

7410 

SKP 


01021 

5213 

JMP 

isumin 

01022 

4566 

ISIT 

/'♦* 

01023 

3600 

3600 


01024 

7410 

SKP 


01023 

5213 

JMP 

GETOPR 



PAL6-V7 


5 IC , L8E 


»E 3-1 


01026 

4566 


I3JT 


/'(' 

01027 

3755 


3755 



01030 

5235 


JMP 

NOP AREN 

/NO 

01031 

4224 


JMS 

EVAL 


01032 

4570 


MUSTBE 


/')' 

01033 

3761 


3761 



0103a 

5507 


JMP I 

PGOTOPR 


01035 

4566 

NOPAREN 

, IS IT 


/A VARIABLE 

01036 

7000 


7000 



01037 

5305 


JMP 

notvar 

/NO 

01040 

3276 


OCA 

ONESS 


01041 

3277 


OCA 

TWOSS 


01042 

1050 


TAO 

WORD 


01043 

3275 


OCA 

WDTEMP 


01044 

4567 


GET+X3IT 

/'(* 

01045 

3755 


3755 



01046 

5274 


JMP 

GOTSS 

/NO 

01047 

1275 


TAO 

WDTEMP 


01050 

4504 


JMS X 

PPUSM 


01051 

4204 


JMS 

EVAL 


01052 

4566 


:&it 


/'»' 

01053 

3763 


3 763 



01054 

5264 


JMP 

ONEOXM 


01055 

4506 


JMS X 

PFXX 


01056 

4504 


JMS X 

PPU3H 


01057 

4204 


JMS 

EVAL 


01060 

4506 


JMS I 

PFXX 


01061 

3277 


OCA 

TWOSS 


01062 

4505 


JMS X 

PPOP 


01063 

5266 


JMP 

.♦3 


01064 

3277 

ONEOXM, 

OCA 

TWOSS 


01065 

4506 


JMS X 

PFXX 


01066 

3276 


OCA 

ONESS 


01067 

4570 


MUSTBE 


/')• 

01070 

3761 


3761 



01071 

4505 


JMS X 

PPOP 


01072 

3275 


OCA 

WOTEMP 


01073 

4177 


JMS 

GETWO 


01074 

4502 

G0TS3 1 

JMS I 

PGETADDR 

01075 

0000 

WDTEMP, 

0 



01076 

0000 

ONESS, 

0 



01077 

0000 

TWOSS, 

0 



01100 

4435 


RENTER 



01101 

3467 


FLDI 

ADDRESS 


01102 

0000 


FEXXT 



01103 

5704 


JMP I 

.♦l 


01104 

1293 


OPOONE 



01105 

4575 

NOTVAR, 

JMS I 

PISITIIT 

/ I SXT A LXT 

01106 

5310 


JMP 

ISITFUN 

/NO 

01107 

5507 


JMP X 

PGOTOPR 

/IT IS IN TH 

01110 

1450 

ISITFUN 

,TAD X 

WORD 


01111 

1362 


TAO 

03754 

/-40 

01112 

7510 


SPA 


/IS 

01113 

5500 


JMP I 

PSXERR 

/NO. 

0111« 

7450 


SNA 


/WAS 



1 15 

4177 


JMS 

GETrtO /YES, SKIP OVER LETTER 

’ t ! I fe 

4334 


JMS I 

PPUSH 

.’MIT 

457 1 


get+mustbe /"(• 

31122 

3 7 55 


3755 


31121 

4224 


JMS 

EVAL 

3 1122 

4505 


JMS I 

PPOP 

31123 

1330 


TAO 

F JUMP 

3112“ 

3325 


DC A 

.♦1 

31125 

7422 


HLT 


21126 

5727 


JMP I 

.♦1 

31127 

1200 


FNEXIT 


31130 

4731 

F JUMP f 

JMS I 

FUNTAS 

31131 

5453 

FUNTAB, 

FN 


31132 

5616 


COS 


31133 

5600 


TAN 


31134 

6200 


ATN 


31135 

6114 


LOG 


31136 

6000 


EXP 


31137 

5412 


SQR 


01U0 

6425 


ABS 


31141 

2726 


S 'U 


31142 

6434 


I NT 


01143 

5353 


RND 


01144 

5624 


SIN 


01145 

1761 


PUTJ 

/POINTER TO PUT CHAR ROUTINE, 

31146 

6441 


8XERR 

/FOR THE MISC, FUNCTIONS, 

01147 

6441 


SXERR 


01150 

6441 


SXERR 


01151 

1770 


GETJ 

/GET A CHAR FROM THE TTY, 




IFNZRO 

MACHINE* 




ADC 

/"NORMAL" A«0 CONVERSION RETURN, 




TST 

/"TEST CHARACTER BUFFER" , 




TIM 

/TIME (0 OF CLOCK TICKS), 


» 




IFZERO MACHINE* 


01152 

6441 

SXERR 


31153 

7421 

TST 


Pi 154 

6441 

SXERR 


01155 

5547 

TAB 

/TAB FUNCTION IS IMPLEMENTED, 

31156 

6441 

SXERR 

/UNIMPLEMENTED USER FUNCTION, 


IFNZRO MACHINE* 


CIS 


/GET STATUS OF LAST TICK 



£s:c 

• LBt 



PAL8 

211 15 

417 7 


JM$ 

GETMD 

’ 1 11 6 

4504 


JMS I 

ppuSh 

’ ! U T 

4571 


GET+MUS TBE 

31122 

3 7 53 


3755 


31 1 2 1 

4204 


JMS 

Eval 

31122 

4503 


JMS I 

PPOP 

31123 

1330 


TAD 

F JUMP 

3112 ® 

3325 


DCA 

.♦1 

31125 

7402 


HLT 


31126 

5727 


JMP I 

• ♦1 

31 12 ? 

1200 


FNEXIT 


31130 

4731 

F JUMP , 

JMS I 

FUNTAB 

31131 

5453 

FUNTAB, 

FN 


31132 

5616 


COS 


01133 

5600 


TAN 


31134 

6200 


ATN 


01135 

6114 


LOG 


31136 

6000 


EXP 


31137 

5412 


SOR 


01 Uf 

6423 


ASS 


0 1 1 ® 1 

0726 


r-N 


01142 

6434 


1 NT 


01143 

5353 


RND 


01144 

5624 


SIN 


01145 

1761 


PUTJ 


01146 

6441 


SXERR 


01147 

6441 


SXERR 


01150 

6441 


SXERR 


01151 

1770 


GETJ 





IFNZRO 

MACHINE* 




ADC 





TST 





TIM 



» 


Z F ZERO MACHINE* 


01152 

6441 

SXERR 

01153 

7421 

TST 

01154 

6441 

SXERR 

01155 

5547 

TAB 

01156 

6441 

SXERR 


IFNZRO MACHINE* 
CIS 



/YES, SKIP OVER LETTER 


/POINTER TO PUT CHAR ROUTINE, 
/FOR THE MISC, FUNCTIONS, 

/GET A CHAR FROM THE TTY, 

/"NORMAL" A»D CONVERSION RETURN, 
/"TEST CHARACTER BUFFER", 

/TIME (• OF CLOCK TICKS) , 


/TAB FUNCTION IS IMPLEMENTED, 
/UNIMPLEMENTED USER FUNCTION, 


/ GET STATUS OF LAST TICK, 



5IC.L86 


PAL8-V7 


01200 

4570 

FNEXIT, 

01201 

3761 


01202 

4177 

GOTOPR, 

01203 

4505 

OPOONE , 

01204 

3066 


01205 

1450 


01206 

0272 


01207 

7650 


01210 

5 220 


01211 

1450 


01212 

0275 


01213 

1273 


01214 

7100 


01215 

1366 


01216 

7620 


01217 

5500 


01220 

1066 

ITSOP, 

01221 

0272 


01222 

3271 


01223 

1450 


01224 

0272 


01225 

7041 


01226 

1271 


01227 

7700 


01230 

5247 


01231 

1066 


01232 

4504 


01233 

4435 


01234 

2073 


01235 

0000 


01236 

1073 


01237 

4504 


01240 

1074 


01241 

4504 


01242 

1075 


01243 

4504 


01244 

1450 


01245 

4504 


01246 

5511 


01247 

1066 

DOXTNOW 

01250 

0070 


01251 

1274 


01252 

7450 


01253 

5363 



MUSTBE /')* 

3761 

JMS GETWD 

JMS X PPOP 

OCA OLOOP 

TAO X WORD 

AND 0700 

SNA CLA 
JMP ITSOP 

r ID I WORD 

4ND 07077 

TAO 03755 

CLL 

TAO 023 

SNL CLA 

JMP X P3XERR 

TAO OLOOP 

AND 0700 

OCA OTEMP 

TAD X WORO 

ANO 0700 

CX A 

TAO OTEMP 

5MA CLA 

JMP OOXTNOW 

TAO OLOOP 

JMS I PPUSM 

PENTER 

PST OPERANO 

PEXXT 

TAO OPERAND 

JMS X PPUSM 

TAO OPERAND*! 

JMS X PPUSH 

TAD OPERANDS 

JMS X PPUSH 

TAO X WORD 

JMS X PPUSH 

JMP X PGETOPR 

TAO OLOOP 

AND 077 

TAD 07764A 

SNA 
JMP 


UDOPER 




21255 

7652 


SNA CLA 



2 1 25k 

5321 


JMP 

UMOPER 


C 1 257 

1266 


TAO 

OLDOP 


21262 

2272 


ANO 

077 


?i26i 

1276 


TAO 

OJUMP 


21262 

3271 


DC A 

OTEMP 


21263 

4505 


JMS I 

PPOP 


21264 

3075 


OCA 

OPERANDS 


ei265 

4505 


JMS I 

PPOP 


21266 

3074 


OCA 

OPERAND* 1 


01267 

4505 


JMS I 

PPOP 


01270 

3073 


OCA 

OPERANO 


21271 

7422 

OTEMP, 

HLT 



01272 

2700 

0700# 

700 



01273 

3755 

03755, 

3755 



01274 

7764 

07764A, 

7764 



01275 

7077 

07077, 

7077 



21276 

5677 

OJUMP, 

JMP I 

.♦1 


01277 

1312 


PLUS 



01300 

1316 


M f NU8 



01301 

1327 


S TAR 



01302 

1332 


SLASH 



01303 

5740 


UPARRX 

/OR 'UPARROW* IF NO 

EXTENDED PN8 

01304 

1342 


RELATE 



01305 

1342 


RELATE 



01306 

1342 


relate 



01307 

1342 


relate 



01310 

1342 


relate 



01311 

1342 


relate 



01312 

4439 

PIUS, 

FENTER 



01313 

4073 


FAD 

OPERANO 


01314 

0000 

FADEXT, 

FEXXT 



01315 

5203 


JMP 

OPDONE 


01316 

4435 

MINUS, 

FENTER 



01317 

5073 


FSB 

OPERAND 


01320 

0000 


FEXXT 



01321 

1020 

UMOPER, 

TAO 

AC1 


01322 

7640 


SZA CLA 



01323 

7330 


CLA CLL 

CML RAR 


01324 

1024 


TAO 

ACS 


01325 

3024 


DCA 

ACS /OXRECT REF 

TO FLOATING AC 

01326 

5203 


JMP 

OPOONE 


01327 

4435 

STAR, 

FENTER 



01330 

607] 


FMP 

OPERAND 


01331 

1615 


FJMP*BKWD*. -FADEXT 


01332 

4435 

SLASH, 

FENTER 



01333 

2204 


F3T+FWD+5LSHTMP-, 


01334 

3073 


FLO 

OPERANO 


01335 

7202 


fdv*fwd*slshtmp* # 


01336 

1622 


FJMP*BKHD*.-FADEXT 


01337 

0000 

SL8HTMP 

,01070 



01340 

0000 





01341 

0200 





01342 

1066 

RELATE, 

TAO 

OLOOP 




P A^S-V 7 


3-6 



ASIC.tSE 



0 1 3a 3 

1367 


TAO 

CONST 





?\ 3 a a 

3353 


OCA 

ThESk I P 





?1 3-5 

6201 


COP 

id 



f * • * r • 

•••• 6 K INSERT 

eilafe 

1753 


TAD I 

THESkIP 





Pi 3«7 

6211 


COP 

10 




8 K INSERT 

01350 

3353 


OCA 

THE9KIP 





01351 

4435 


FENTER 






01352 

5073 


pse 

OPERAND 





01353 

74 02 

THESKIP 

,HLT 






01354 

1204 


PJMP«-P*D*4 





01355 

3151 


FID 

ONE 





01356 

0000 


FEXIT 






01357 

5203 


JMP 

OPOONE 





01360 

3152 


FLO 

ZERO 





01361 

0000 


FEXIT 






01362 

5203 


JMP 

OPOONE 





01363 

4505 

UOOPER, 

JMS I 

PPOP 





01 36ft 

3066 


OCA 

OLOOP 





01365 

5466 


JMP I 

OLOOP 





01366 

0023 

023 , 

23 






01367 

5263 

C0N3T, 

,-4104 






01370 

0050 


PSEO 


/ 

■ 



01371 

0140 


F36T 


/ 

4 



01372 

0110 


FSUT 


/ 

» 



01373 

0100 


P3GE 


/ 

4» 



01374 

0150 


FSLC 


/ 

>■ 



01373 

0040 


P9NE 


/ 

4 > 





1400 

PAGE 



01400 

0000 

GETADDR,0 



01401 

6201 

COP 

0 

S K INSERT 

01402 

1600 

TAD I 

GETADOR 


01403 

3014 

OCA 

INDEX2 


01404 

2200 

ISZ 

GETAODR 


01405 

1600 

TAD I 

GETADOR 


01406 

3362 

OCA 

GSS1 


01407 

2200 

ISZ 

GETADOR 


01410 

1600 

TAD X 

GETADOR 




PAL8-VT 


GE « 



iSlC.lSE 


01«i 1 

3363 


OCA 


GSS2 


MM2 

2200 


isz 


GETAOOP 


e i « i 3 

6211 


CDF 


10 

8 K INSERT 

e i « : a 

iflia 


TAO 

I 

1 NOEx 2 


e l a 1 5 

3067 


OCA 


ADDRESS 


01416 

2067 


ISZ 


ADDRESS 


<HMT 

1362 


TAO 


GSS1 


01420 

7650 


SNA 

CLA 



01421 

5260 


JMp 


NOSSl 


01422 

1414 


TAO 

I 

IN0EX2 


01423 

7450 


SNA 




01424 

5261 


JMP 


ALLOC 


01425 

7140 


CLL 

CMA 



01426 

1562 


TAO 


GSS1 


01427 

7630 


SZL 

CLA 



01430 

5370 


JMP 


SSERR 


01431 

1414 


TAO 

X 

INDEX2 


01432 

3364 


OCA 


GDXM2 


01433 

1363 


TAO 


GSS2 


01434 

7450 


SNA 




01435 

5253 


JMP 


N0SS2 


01436 

7141 


CLL 

CIA 



01437 

1364 


TAD 


GDXM2 


01440 

7620 


SNL 

CLA 



01441 

5370 


JMP 


SSERR 


01442 

1362 


TAO 


GS81 


01443 

7041 


CXA 




01444 

3362 


OCA 


GSSi 


01445 

7410 


SKP 




01446 

1364 


TAO 


GDXM2 


01447 

2362 


ISZ 


G8S1 


01450 

S246 


JMP 


.-2 


01451 

1363 


TAD 


6882 


01452 

3362 


DCA 


GSSI 


01455 

1362 

N0SS2, 

TAO 


GSSI 


01454 

7104 


CLL 

RAL 



01455 

1362 


TAD 


GSSI 


01456 

1067 


TAD 


ADORESS 


01457 

3067 


DCA 


ADDRESS 


01460 

5600 

N0831 i 

JMP 

X 

GET ADDR 


01461 

2034 

ALLOC, 

X8Z 


oxmflag 


01462 

7410 


SKP 




01463 

5273 


JMP 


X80XM 


01464 

3034 


OCA 


DXMFLAG 


01465 

1363 


TAD 


GSS2 


01466 

7640 


SZA 

CLA 



01467 

1367 


TAO 


013 


01470 

3363 


DCA 


GSS2 


01471 

1367 


TAD 


013 


01472 

3362 


DCA 


GSSI 


01473 

1363 

XSDXM, 

TAO 


GS32 


01474 

7450 


SNA 




01475 

7201 


CLA 

XAC 



01476 

7041 


CXA 




01477 

3364 


DCA 


GDXM2 




PAL0-V7 


rASIC.LSE 



a-i 


Z15?0 

2134 


I8Z 

NOXKT 

/FORBIO IMTERUPT8 NO 

?15?1 

7301 


CIA CLL 

uc 


?15P2 

1362 


TAD 

GSS 1 


? t 52*3 

7430 


SZi. 



? 1 5C*a 

5765 


JMP I 

P3PACERR 


01505 

2364 


isz 

GDIM2 


215P0 

5302 


JMP 

.-4 


01507 

3364 


DC A 

GDJM2 


01510 

1364 


TAO 

GDXM2 


01511 

7124 


CLL CML 

RAL 


e 1 5 1 2 

7420 


snl 



01513 

1364 


TAO 

G0XM2 


01514 

3364 


OCA 

G0XM2 


01515 

1364 


TAD 

GDXM2 


01516 

7430 


SZL 



01517 

5765 


JMP I 

PSPACERR 


01520 

4544 


JMS I 

8PLEPT 


01521 

7410 


SKP 



01522 

5765 


JMP I 

PSPACERR 


01523 

7344 


CLA CLL 

CMA RAL 


21524 

1014 


TAD 

IMDEX2 


01525 

3014 


OCA 

IN0EX2 


01526 

1003 


TAD 

ARRLOC 


01527 

3414 


OCA X 

XN0EX2 


01530 

1362 


TAD 

GSS1 


01531 

3414 


OCA X 

XN0EX2 


01532 

1363 


TAD 

GSS2 


01533 

3414 


OCA X 

XNDEX2 


01536 

7240 


CLA CHA 



01535 

1067 


TAD 

ADDRESS 


01536 

3067 


OCA 

AOORESS 


01537 

1366 


TAO 

07774 


01540 

3363 


OCA 

GSS2 


01541 

1467 


TAD X 

AOORESS 


01542 

2067 


X8Z 

ADDRESS 


01543 

4521 


JM3 I 

PSTICKXT 


01544 

2363 


X8Z 

GSS2 


01545 

5341 


JMP 



01546 

1364 


TAO 

G0XM2 


01547 

7041 


CXA 



01550 

1160 


TAO 

04 


01551 

3364 


OCA 

G0XM2 


01552 

4521 


JMS X 

PSTXCK XT 


01553 

2364 


isz 

G0XM2 


01554 

5352 


JMP 

.•2 


01555 

7346 


CLA CLL 

CMA RTL 


01556 

1200 


TAO 

GET AOOR 


01557 

3200 


OCA 

GETAOOR 


01560 

4543 


JMS X 

CNCLR 

/CHECK FOR CONTROL C 

01561 

5201 


JMP 

GETADDRM 


01562 

0000 

GS81 , 

0 



01563 

0000 

GS82, 

0 



01564 

0000 

GDIM2 , 

0 



01565 

0370 

PSPACER 

, SPACERR 



01566 

7774 

07774, 

T774 





PA L«-V7 


h SIC.Lfit 


^G£ 


01547 

0013 

013# 

13 

/ ( 12) IF 1 OPS INDEXING 

01570 

4a77 

SSEPR, 

JM$ 1 

PERPOR 


01571 

2325 


TEXT 

'SUBSCRIPT ' 


01572 

£223 





31573 

2322 





01574 

1120 





01575 

2400 






01574 

1052 

DEP, 

tad 

LINENO 


01577 

3013 


DC A 

INOCXI 


01400 

1413 


TAD I 

INDEX 1 


01401 

3220 


DCA 

U3EPFN 


01402 

4571 


GET*MU5TBE 

✓ *FN* 

01403 

3754 


3754 



01404 

4571 


GET+MU3TBE 

/A VARIABLE 

01405 

7000 


7000 



01404 

4571 


:et*mustbe 

/'(» 

01407 

3755 


3755 



01410 

4571 


get+hustbe 

/A VARIABLE 

01411 

7000 


7000 



01412 

4571 


GET+MUSTBE 

/')' 

01413 

3741 


3741 



01414 

4571 


GET*MU3TBE 


01415 

3473 


3473 



01414 

5417 


JMP I 

P3KXPIT 


01417 

0447 

P8KXPIT 

# SKIPIT 



01420 

0000 

U3ERFN, 

0 



01421 

4570 

MORERD, 

MUSTBE 


/•#• 

01422 

3743 


3763 



01423 

4513 

READ# 

jhb x 

PGETVAR 


01424 

7240 


CLA CMA 



01425 

1045 


TAD 

LOCCTR 


01424 

3273 


DCA 

LOCTMP 


01427 

1044 


TAO 

READLOC 


01430 

3045 


DCA 

LOCCTR 


01431 

4547 


GET+I9XT 

/(CR) OR *\ 

01432 

2000 


2000 



01433 

7410 


3KP 



01434 

5240 


JMP 

SEARCH 


01435 

4544 


I3IT 


/k LXNENO 

01434 

0000 


0000 



01437 

7410 


8KP 



01440 

5240 


JMP 

SEARCH 


01441 

4544 


I8XT 


t f 9 9 

01442 

3743 


3743 



01443 

5247 


JMP 

DATAERR 


01444 

4501 

IS30ME, 

JM9 X 

peval 


01445 

7240 


CLA CMA 



01444 

1045 


TAO 

LOCCTR 


01447 

3044 


DCA 

READLOC 


01450 

1273 


TAD 

LOCTMP 




PALB-V7 


SC 4-3 


ASIC.LBC 


eusi 

3045 


OCA 

LOCCTR 

21652 

«512 


JMS I 

pstovar 

? 1 653 

4567 


GETMSIT 

21654 

2002 


2002 


21655 

5221 


JMP 

morerd 

21656 

5503 


JMP I 

PEXECUTE 

21657 

4177 

3CHMOR, 

JMS 

GETWO 

21660 

4566 

SEARCH, 

XSIT 


21661 

1757 


1757 


21662 

7410 


SKP 


21663 

5244 


JMP 

XSSOME 

01664 

4566 


ISXT 


21665 

1755 


1755 


01666 

5257 


JMP 

SCHMOR 

01667 

4477 

DATAERR 

r JMS X 

PERROR 

21670 

0401 


TEXT 'DATA* 

01671 

2401 




01672 

0000 




01673 

0000 

LOCTMP, 

0 


01674 

ee00 

GET8LK, 

0 


01675 

4563 


JMS I 

PCHKFIT 

01676 

1004 


TAD 

CODELOC 

01677 

3045 


OCA 

LOCCTR 

01720 

1004 


TAD 

COOELOC 

01701 

1356 


TAD 

ABCDEF 

01702 

3004 


OCA 

COOELOC 

01703 

1004 


TAD 

COOELOC 

01704 

3357 


OCA 

BCOEFG 

01705 

1003 


TAD 

P3YMTAB 

01706 

1356 


TAO 

ABCDEF 

01707 

3005 


OCA 

PSYMTA8 

01710 

1445 

GTBKLP, 

TAO X 

LOCCTR 

01711 

2045 


xsz 

LOCCTR 

ei7l2 

3757 


OCA X 

BCOEFG 

B1 7 1 3 

2357 


xsz 

BCOEFG 

01714 

1357 


TAO 

BCOEFG 

01715 

7041 


CIA 


01716 

1005 


TAO 

PSYMTAB 

01717 

7640 


SZA CLA 


01720 

5310 


JMP 

GTBKLP 

01721 

7240 


CLA CMA 


01722 

1006 


TAO 

NSYMTAB 

01723 

3006 


OCA 

NSYMTAB 

01724 

1165 


TAO 

GSBPTR 

01723 

7040 


CMA 


01726 

1164 


TAO 

PGOLIST 

01727 

3357 


OCA 

BCOEFG 

01730 

1164 


TAO 

PGOLIST 

01711 

3050 


OCA 

WORD 

01732 

1356 


TAD 

ABCDEF 

01733 

1450 


TAO I 

WORO 

01734 

3450 


OCA I 

WORD 

01735 

2050 


XSZ 

WORO 


/(CR) OR *\* 

/"DATA' 

/(EOF) 


/UPDATE SYMBOL TABLE NOW, 

/BY AOOXNG XN CORRECTION FACTOR, 

/MOVE TEXT NOW, 

/NOW CHECK FOR END, 



PAL8-V7 



SIC.L8E 



4*4 



21736 

2357 


1SZ 

BCOEFG 


2 1 7 37 

5332 


JMP 

.•5 


?i?«e 

1063 


TAD 

FORCT 


ai7<*i 

3357 


OCA 

BCOEFG 


017 02 

1360 


TAD 

PPF0RLI5 


PI 7«3 

3050 


OCA 

»ORD 


21744 

5352 


JMP 

.♦6 


21745 

1356 


TAO 

ABCOEF 


21746 

1450 


TAO I 

WORD 


01747 

3450 


OCA X 

WORD 


01750 

2050 


xsz 

WORD 


01751 

2050 


X8Z 

WORD 


01752 

2357 


XSZ 

BCOEFG 


01755 

5345 


JMP 

• •6 


01754 

1005 


TAO 

PSYMTAB 


01755 

5674 


JMP X 

GETBLK 


01756 

7774 

ABCDEF t 

• 4 



01757 

0000 

BCOEFG, 

0 



01760 

7706 

PPFORLI 

,F0RLIST*1 


01761 

0000 

PUTJ, 

0 



01762 

4506 


M8 I 

PFIX 


01763 

7200 


CIA 



01764 

1016 


TAO 

ACS 


01765 

4433 


JMS X 

PPUTCM 


01766 

4546 


JMS X 

PANORM 


01767 

5761 


JMP X 

PUTJ 


01770 

0000 

GET J, 

0 


/GETS A CHARACTER PROM THE TTY 

01771 

4776 


JM3 X 

PBEGFXX 

/CLEAN UP THE FAC 

01772 

4432 


JMS X 

PGETCM 

/FECTH A CHAR, 

01775 

3016 


OCA 

ACS 

/SAVE XT, BABY | 

01774 

4546 


JMS x 

PANORM 

/AND NORMALIZE AC, 

01773 

5770 


JMP X 

GET J 

/AND RETURN NOW, 

01776 

3762 

PBEGFXX 

, BEGPIX 





2000 

PAGE 



02000 

2134 

NOTNOW, XSZ 

NOXNT 

/RESET *C SWITCH 80 NO INTERUPT NOW 

02001 

2030 

xsz 

WORD 


02002 

1430 

TAO X 

WORD 


02003 

7450 

SNA 



02004 

5232 

JMP 

INSERT 




22?25 

337 1 


OCA 


LOWLOC 

22??fe 

3050 


OCA 

I 

wORO 

?22?7 

1371 


TAO 


LOwLOC 

2221? 

32tt* 


OCA 


LOCCTR 

22211 

0510 


JMS 

I 

PPASSCR 

22212 

1371 

MOVE, 

TAD 


LOWLOC 

22213 

7001 


CIA 



22210 

1200 


TAO 


CODELOC 

22215 

7652 


SNA 

CLA 


22216 

5230 


JMP 


INSRT5 

222 1 T 

7300 


CLA 

CLL 

CMA 

22222 

1371 


TAO 


LOWLOC 

22221 

3371 


OCA 


LOWLOC 

22222 

7340 


CLA 

CLL 

CMA 

02223 

1245 


TAO 


LOCCTR 

22220 

3045 


DCA 


LOCCTR 

22225 

1771 


TAO 

I 

LOWLOC 

22226 

3445 


OCA 

I 

LOCCTR 

22227 

5212 


JMP 


MOVE 

22232 

1245 

XNSRT5, 

TAD 


LOCCTR 

22231 

3220 


::a 


CODELOC 

22232 

1057 

INSERT, 

TAO 


PPTR 

02033 

1000 


TAO 


MLINBUP 

82034 

7000 


CMA 



02035 

3057 


OCA 


PPTR 

02036 

7326 


CLA 

CLL 

CML RTL 

82037 

1057 


TAO 


PPTR 

82000 

7050 


SNA 



02001 

5313 


JMP 


PXXLXN 

02002 

7000 


CMA 



82003 

0563 


JMS 

I 

PCMKFIT 

02000 

1004 


TAO 


COOELOC 

02003 

3003 


DCA 


LOCCTR 

82006 

1037 


TAD 

X 

PLXNBUP 

22007 

7001 


X AC 



22250 

3013 


OCA 


INDEX 1 

02051 

1013 


TAD 

X 

XN0EX1 

02052 

3073 


OCA 


operand 

02053 

1413 


TAO 

X 

INDEX 1 

02050 

3070 


OCA 


0PERAN0+1 

02055 

0336 


JMS 


COMPARE 

02256 

5261 


JMP 


N0TPR8T 

22057 

4361 


JMS 


SUBRA 

82260 

5303 


JMP 


TRANSP 

02061 

0510 

N0TFR8T 

, JMS 

X 

PPASSCR 

82062 

4336 


JMS 


COMPAR 

22063 

5261 


JMP 


NOTPRST 

82860 

1003 


TAO 


LOCCTR 

02065 

3360 


OCA 


L8TL0C 

22066 

1004 


TAO 


CODELOC 

22267 

3043 


OCA 


LOCCTR 

22070 

4361 


JMS 


SUBRA 

22071 

4177 


JMS 


8ETW0 

22272 

1050 

MOVLUP, 

TAO 


WORO 

22273 

3772 


OCA 

X 

PUTLOC 



®$ic 

.L8£ 




«*6 

0207fl 

2372 


ISZ 


PUTLOG 

02075 

a 1 7 7 


JM3 


GETWO 

P2076 

1360 


TAO 


LSTLOC 

02077 

real 


CIA 



02100 

1045 


TAO 


LOCCTR 

1 e 1 

7640 


SZA 

CLA 


02102 

5272 


JMP 


MOVLUP 

02103 

1037 

TRANSF, 

TAO 


PLIN0UP 

02104 

3060 


OCA 


GPTR 

02105 

1460 

TRALUP, 

TAO 

I 

GPTR 

02106 

2060 


ISZ 


GPTR 

02107 

3772 


DCA 

I 

PUTLOC 

02110 

2372 


ISZ 


PUTLOC 

02111 

2057 


ISZ 


PPTR 

02112 

5305 


JMP 


TRALUP 

02113 

4561 

FIXLIN, 

JMS 

I 

PLINFIX 

021 lfl 

5520 


JMP 

I 

PEOIT 

02115 

0000 

IGNORE, 

0 


/THIS ROUTINE LOOKS FOR A "\" OR A C # R. 



PAU8-V7 


r*SIC.U«e 



tint 

4567 

GETMSIT 


?2U7 

5000 

5000 


/TEXT? 

02120 

5327 

JMp 

NOTBAO 

✓ NOPE » 

22121 

u 1 7 7 

JM$ 

GETwD 


22 1 22 

1050 

TAD 

WORD 


0*123 

0070 

AND 

077 


e 2 i 2 « 

7640 

SZA CIA 


✓ENO OF TEXT? 

02125 

5321 

JMP 

• * ® 

✓NOPE, 

02126 

5316 

JMP 

IGNORE*! 

/YEP, GET NEXT ITEM, 

02127 

4575 

NOTBAD, JMS I 

PISITUIT 

/IS IT A LITERAL? 

02130 

7410 

SKP 



02131 

5316 

JMP 

IGNORE* 1 

/YES, 

02132 

4566 

I3IT 



02133 

2000 

2000 


/"\ M OR C,R, 

02134 

5316 

JMP 

IGNORE*! 

/NO 

02135 

5715 

JMP I 

IGNORE 

/YES, RETURN TO CALLER 


02136 

0000 

COMPARE 

,0 



02137 

4567 


GET* I SIT /A LINENO 

02140 

0000 


0000 


02141 

5356 


JMP 


XAMLESS 

02142 

1050 


TAO 


WORD 

02143 

7001 


XAC 



02144 

3013 


OCA 


XNDEX1 

02145 

1413 


TAO 

I 

XNDEXl 

02146 

7141 


CLL 

CIA 


02147 

1073 


TAO 


OPERANO 

02150 

7640 


SZA 

CLA 


02151 

5355 


JMP 


FRSTNE 

02152 

1413 


TAO 

I 

INDEXl 

02153 

7141 


CLL 

CIA 


02154 

1074 


TAO 


OPERANO*! 

02155 

7620 

FRSTNE, 

SNL 

CLA 

/IS OPERAND<THIS LINENO 

02156 

2336 

XAMLESS 

f ISZ 


COMPARE /YES 

02157 

5736 


JMP 

I 

COMPARE 

02160 

0000 

LSTLOC, 

0 



02161 

0000 

3U8RA, 

0 



02162 

1057 


TAD 


FPTR 

02163 

7100 


CLL 



02164 

1004 


TAO 


COOELOC 

02165 

3004 


OCA 


CODELOC 

02166 

1004 


TAO 


COOELOC 

02167 

3372 


OCA 


PUTLOC 

02170 

5761 


JMP 

X 

SUBRA 

02171 

0000 

LOWLOC, 

0 



02172 

0000 

PUTLOC , 

0 





ASXC.lSE 


PALS-V7 


iGE 5-1 



02175 

#177 

PRINT, 

JMS 

GETMO 

/THIS INSTRUCTION MAY BE COMBINED WITH THE GET INSTRUCTION BEL 

0217a 

73*6 


CLA CLL 

CM A RTL 

/7775#-3 POR DEVICE CHECK, 

02175 

1131 


TAO 

OUTDEV 

/MULTIPLY DEVICE BY 3, 

02176 

nil 


TAO 

OUTDEV 


02177 

1131 


TAO 

OUTDEV 

/SO THAT LPT«6, PTP#3, AND TTV#0, 

0220e 

1361 


TAO 

0110 

/NOW ADO IN 72. THUS TTY"72,LPT#60, 

02201 

3357 


OCA 

TWXOTH 

/AND SAVE POR PUTURE USE. 

02202 

4566 


ISIT 


/CHECK FOR PXRST COMMA. ONCE ONLY CHECK, 

02203 

3763 


3763 



0220A 

5207 


JMP 

PRINTC 

/NO. CONTINUE CHECKING. 

02205 

5277 


JMP 

PRINBIK 

/YEP, GIVE BLANK, THEN TAB OVER, 

02206 

*177 

PRINTG, 

JMS 

GETWO 

/GET NEXT ELEMENT AFTER A TEXT ELEMENT. 

02207 

33*5 

PRINTC, 

OCA 

TABFLG 

/RESET TAB INDICATER. 

02210 

•566 

ISIT 


/CHECK TO SEE IF CARRIAGE RETURN. 

02211 

2000 


2000 



e22l2 

5216 


JMP 

NOPCR 

/NOT A CARRIAGE RETURN. CONTINUE CHECKING, 

02213 

*51* 


JMS I 

PPRINTXT 


0221* 

6531 


CRLF 



02215 

5503 


JMP I 

PEXECUTE 


02216 

*566 

NOPCR, 

ISIT 


/IS IT A COMMA (*,") 

02217 

3763 


3763 



02220 

5316 


JMP 

PRENT 

/NO, FINISH CHECKING BELOW, 

02221 

5303 


JMP 

PRXNCOM 

/IT IS, PROCESS THE COMMA NOW. 

02222 

*566 

PRXNTHS 

» ISIT 


/TEXT 

02223 

5000 


5000 



0222* 

5236 


JMP 

NOTTXT 


02225 

• 177 

PRXNQUO 

f JMS 

GETWO 


02226 

1050 


TAO 

WORD 


02227 

7012 


RTR 



02230 

7012 


RTR 



02231 

7812 


RTR 



02232 

•260 


JMS 

PRINHAP 


02233 

1050 


TAO 

WORO 


0223* 

•260 


JMS 

PRINHAP 


02235 

5225 


JMP 

PRXNQUO 


02236 

12*1 

NOTTXT, 

TAO 

PPRINRET 


02237 

56*0 


JMP I 

pevalgo 


022*0 

1007 

pevalgo 

, EV ALGO 



022*1 

22«2 

PPRXNRE 

, PRINRET 



022*2 

13*5 

PRINRET 

, T AO 

tabplg 

/WAS THERE a TAB PRESENT? 



PALS-V7 


5-2 



IC.LU 


02243 

7640 


SZA CL A 




02244 

5762 


JMP 1 

tabthr 


/YEP. EXECUTE TAB CORRECTER. 

02245 

1360 


TAO 

014 


/SEE IF ROOM FOR 13 PL ACES ( 1 ♦ 1 2) , 

02246 

4346 


J MS 

CHECK* 



02247 

1024 


TAO 

ACS 



02250 

7710 


SPA CLA 




02251 

5254 


JMP 

• ♦3 



02252 

1051 


TAO 

0240 



02253 

4433 


JMS I 

PPUTCH 



02254 

4517 


JMS X 

POUTNUM 



02255 

1051 


tad 

0240 



02256 

4433 


JMS I 

PPUTCH 



02257 

5207 


JMP 

PRINTC 


/GO BACK ANO GET NEXT. 

02260 

0000 

PRINHAP 

'0 




02261 

0070 


AND 

077 



02262 

7450 


SNA 




02263 

5206 


JMP 

PRXNTG 


/GO SKIP PAST TEXT ELEMENT AND CHECK NEXT 

02264 

1326 


TAD 

007736 



02265 

7450 


SNA 




02266 

5660 


JMP X 

PRINHAF 



02267 

1062 


7 *0 

02 



02270 

0070 


,N0 

077 



02271 

1051 


TAO 

0240 



02272 

3024 


OCA 

ACS 


/SAVE CHARACTER FOR A SECOND. 

02273 

4346 


JMS 

CHECK* 


/CHECK TO SEE IF IT'LL FIT ON THE LINE. 

02274 

1024 


TAO 

ACS 


/RESTORE THE CHARACTER, 

02275 

4433 


JMS X 

PPUTCH 



02276 

5660 


JMP X 

PRXNHAP 



02277 

7200 

PRXNBLK 

'CLA 



/MAKE SURE AC X3 ZERO. 

02300 

1051 


TAO 

0240 



02301 

4433 


JMS X 

PPUTCH 



02302 

4346 


JMS 

CHECK* 


/CHECK TO SEE IF ROOM FOR ONE MORE, 

02303 

1126 

PRINCOM 

» TAO 

COLUMN 


/SEE IP COLUMN ON COMMA BOUNDRY. 

02304 

7450 


SNA 




02305 

5312 


JMP 

PRINSEM 


/YEP, 

02306 

1327 


TAO 

07762 


/SUBTRACT A LITTLE AN CHECK AGAIN, 

02307 

7500 


SMA 



/TOO FAR! 

02310 

5304 


JMP 

• "4 


/NOPE, 

02311 

5277 


JMP 

PRXNBLK 


/YEP, GIVE BLANK ANO LOOP AGAIN. 

02312 

4567 

PRINSEM 

,GET*ISIT 

/(CR) 

OR 

02313 

2000 


2000 




02314 

7410 


3KP 




02315 

5503 


JMP I 

PEXECUTE/ YES 


02316 

4566 

PRENT, 

ISXT 


/#, # 


02317 

3762 


3762 




02320 

7410 


SKP 




02321 

5312 


JMP 

PRINSEM 

/YES 


02322 

4566 


isit 


/•»• 


02323 

3763 


3763 




02324 

5222 


JMP 

PRINTHS 



02325 

5277 


JMP 

PRXNBLK 



02326 

7736 

007736, 

7736 




02327 

7762 

07762» 

7762 






PAL8-V7 


E 5-3 


"i$ie.ie£ 


02330 

0000 

LI^FJX, 

0 




02331 

1004 


TAO 


CODELOC 


02332 

30«5 


OCA 


LOCCTR 


32333 

4177 

LFXIUP, 

JM3 


GETWO 


0233“ 

1450 


TAO 

I 

WORD 


32335 

7640 


SZA 

CLA 


/IS IT A LINENO 

02336 

5730 


JMP 

I 

LINFIK 

/NO 

0233? 

2050 


ISZ 


WORD 


02340 

7240 


CLA 

CM A 



023“ 1 

1045 


TAO 


LOCCTR 


02342 

3450 


OCA 

I 

WORD 


02343 

4510 


JMS 

I 

PPASSCR 


02344 

5333 


JMP 


LFXLUP 



02345 

0000 

tabflg, 

0 


02346 

0000 

CHECKW , 

P 


0234? 

1126 


’ AD 

COLUMN 

02350 

7040 


CMA 


02351 

1357 


TAD 

TWIDTH 

02352 

7700 


SMA CLA 


02353 

5746 


JMP I 

CHECKW 

02354 

4514 


JMS I 

PPRINTXT 

02355 

6531 


CRLF 


02356 

5746 


JMP I 

CHECKW 

02357 

0000 

TWIDTH, 

0 


02360 

0014 

014, 

14 


02361 

0110 

0110, 

110 


02362 

6350 

TABTHR, 

TABOO 



/TAB FOUND FUG, 


/THIS ROUTINE CHECKS FOR LINE TOO LONG, 
/GET WHERE AT NOW, 

/•WHEREATOOF PLACES IN OUT CHAR, 

/ADO IN WIDTH OF DEVICE, 

/TOO BIG. 

/NAH, RETURN TO SENDER, 

/YEP, GIVE C.R.L.F, 

/AND RETURN TO SENDER, 

/0 IS OK SINCE IT'LL BE SET UP CORRECTLY. 
/MAGIC CONSTANT, 

/NOTH OF TTY PAPER, 

/ROUTINE WHICH PROCESS TAB CHARACTER. 


02363 

0073 

MENDPDL 

, •ENDPOL 1 

• 1 

02364 

0000 

PUSH, 

0 


02365 

3436 


OCA I 

PDL 

02366 

2036 


ISZ 

POL 

0236? 

1036 


TAD 

POL 

02370 

1363 


TAD 

MENDPDL 

02371 

7640 


SZA CLA 


02372 

3764 


JMP I 

PUSH 

02373 

4477 


JMS I 

PERROR 

02374 

0530 


TEXT 'EXPRESSION' 

02375 

2022 




02376 

0523 




02377 

2311 




02400 

1716 




02401 

0000 






ft.c 

,L«t 



PAL8-V7 


5-4 


• 

02402 

4541 

EXIT, 

JMS I 

PCOWT 

/WAIT 

FOR BUFFER TO 

EMPTY AND THEN CONTINUE. 


02403 

1007 


TAD 

0215 





02404 

4433 


JMS X 

PPUTCH 





02405 

1010 

EDIT, 

TAD 

0212 





02406 

4433 


JMS I 

PPUTCH 





02407 

1130 


TAD 

0UTD2 

/RESET 

DEVICE 



02410 

3131 


DCA 

OUTDEV 





02411 

4543 


JMS I 

CNCUR 

/CHECK 

TO SEE IF *C 

WAS TYPED, 


02412 

1362 


i *D 

PXXTHE* 





02413 

4524 


,M3 X 

PGETLZN 





02414 

1437 


TAD X 

PLXNBUP 





02413 

3050 


DCA 

WORD 





02416 

1450 


TAD X 

WORD 





02417 

7650 


SNA CIA 






02420 

5766 


JMP X 

PNOTNOW 





02421 

1010 


TAD 

0212 





02422 

4433 


JMS X 

PPUTCH 





02423 

1130 


TAD 

0UTD2 

/RESET 

I/O DEVICE* 



02424 

3131 


DCA 

OUTDEV 





02425 

4566 


ISIT 

/•RUN* 





02426 

3736 


3736 






02427 

7410 


3KP 






02430 

5252 


JMP 

RUN 





02431 

4566 


X3XT 

/•LIS* 





02432 

3737 


3737 






02433 

7410 


SKP 






02434 

5763 


JMP X 

PLXiT 





02435 

4566 


ISXT 

/•SCR* 





02436 

3735 


3735 






02437 

5254 


JMP 

XMMED 





02440 

1365 

SCRATCH 

, T AO 

PPERMSYM 





02441 

3004 


DCA 

CODELOC 





02442 

1364 


TAD 

PXXEOP 





02443 

3765 


OCA X 

PPERMSYM 





02444 

1365 


TAD 

PPERMSYM 





02445 

7001 


ZAC 






02446 

3005 


DCA 

P3YMTAB 





02447 

7240 


CLA CMA 






02450 

3006 


OCA 

NSYMTAB 





02451 

4537 


JMS X 

PRESET 

/RESET 

DEVICES AFTER 

SCRATCH, 


02452 

4262 

RUN, 

JMS 

CLEARV 





02453 

5503 


JMP X 

PEXECUTE 





02454 

1037 

IMMEO, 

TAD 

PLXNBUF 







PAL8-V7 


^^sic.ise 



5-5 



32455 

3045 

OCA 


LOCCTR 

22456 

1 364 

TAD 


PXXEOP 

22457 

3252 

OCA 


lInEno 

22462 

5533 

JMP 

I 

PEXECUTE 

32461 

7403 

PJSET, SETUP 


32462 

0000 

clearv , 0 



32463 

4661 

JM$ 

X 

PJSET 

32464 

5303 

JMP 


RUNIN 

22465 

1456 

RUNLUP# tad 

X 

EPTR 

32466 

1360 

TAO 


07000 A 

22467 

7640 

SZA 

CLA 

/IS XT A VARIABLE 

32470 

5277 

JMP 


RUNNOT /NO 

02471 

2056 

isz 


EPTR 

02472 

1456 

TAD 

X 

EPTR 

32473 

3060 

DCA 


GPTR 



•sic 

,L6C 





32474 

1460 


TAD 

X 

GPTR 

32475 

3456 


DC A 

I 

EPTR 

3247b 

7410 


5KP 



32477 

2056 

RUNNOT, 

isz 


EPTR 

3252? 

2056 


I s z 


EPTR 

02531 

2056 


isz 


EPTR 

32522 

2056 


ISZ 


EPTR 

02503 

2057 

RUNIN, 

isz 


FPTR 

02504 

5265 


JMP 


RUNLUP 

32535 

1361 


TAD 


PLIMIT 

22506 

3003 


OCA 


ARRLDC 

32507 

1005 


tad 


P3YMTAB 

02510 

3056 


OCA 


EPTR 

0251 1 

1006 


TAD 


N9YMTAB 

02 512 

3057 


DCA 


FPTR 

02513 

5343 


JMp 


RUN2IN 

02514 

1456 

RUN2LUP 

i TAD 

I 

EPTR 

02515 

1360 


tad 


O7000A 

02516 

7640 


SZA 

CLA 

/IS XT A VARIABLE 

02517 

5337 


JMP 


RUN2NOT /NO 

02520 

2056 


1 sz 


EPTR 

02S21 

1456 


.AD 

X 

EPTR 

02522 

3031 


DCA 


TMP 

02 525 

1003 


tad 


ARRLOC 

02524 

3456 


DCA 

X 

EPTR 

02525 

1031 


TAD 


TMP 

02526 

4521 


JMS 

X 

P8TXCKIT 

02527 

4521 


JM9 

X 

PSTICKIT 

02530 

4521 


JMS 

X 

PSTICKIT 

02531 

4521 


JMS 

X 

PSTICKIT 

02532 

2056 


xsz 


EPTR 

02533 

3456 


DCA 

X 

EPTR 

02534 

2056 


xsz 


EPTR 

02535 

3456 


DCA 

X 

EPTR 

02536 

5342 


JMp 


.♦R 

02537 

2056 

RUN2NOT 

,xsz 


EPTR 

02540 

2056 


xsz 


EPTR 

02541 

2056 


xsz 


EPTR 

02542 

2056 


xsz 


EPTR 

02543 

2057 

RUN2XN, 

isz 


FPTR 

02544 

5314 


JMP 


RUN2LUP 

02545 

1004 


TAD 


CODELOC 

02546 

3045 


OCA 


LOCCTR 

02547 

1125 


TAD 


PPOLIST 

02550 

3036 


DCA 


POL 

02551 

1004 


tad 


CODELOC 

02552 

3046 


DCA 


REAOLOC 

02553 

7240 


CLA 

CMA 


02554 

3063 


DCA 


FORCT 

02555 

1164 


TAD 


PGQLI3T 

02556 

3163 


DCA 


G3BPTR 

02557 

5662 


JMp 

X 

CLEARV 

02560 

7000 

O7000A, 

7000 


02561 

0003 

PLIMXT, 

LIMIT 

/FIRST MQRD OF USER AREA 

02562 

7253 

pxxthen 

'XXTHEN 




02565 

5620 

PLI5T, 

LIST 







025fe« 

7522 

P**EOF, 

XXEOF 







02565 

7222 

PPESMSY 

, PERMSYM 







?25fc6 

2?20 

PSiQTNO* 

, notion 







025bT 

4262 

END, 

J MS 

CLEARV 






02570 

4557 

STOP, 

J M$ I 

PRESET 

/RESET ALL 

DEVICES 

NOW, 

02571 

4541 


J MS I 

PCOwT 

/ANO 

WAIT 

FOR 

I/O 

TO FINISH UP, 

02572 

4514 


JM3 I 

PPRINTXT 

/ANO 

GIVE 

THE 

STOP 

message 

02575 

6525 


READY 







02574 

5520 


J HP I 

PEDIT 







2600 PAGE 


02600 

4561 

GETLRET 

,JM8 

I 

PLINFIX 

0260! 

4543 


JMS 

I 

CNCLR 

02602 

5603 


JMP 

I 

GETLIN 

02603 

0000 

GETLIN, 

0 



02604 

3064 


OCA 


SNUMFLG 

02605 

1131 


TAD 


OUTOEV 

02606 

3130 


OCA 


0UT02 

026e7 

3131 


OCA 


OUTDEV 

02610 

1172 

newlin, 

TAD 


PLBEGIN 

02611 

3056 


OCA 


EPTR 

02612 

1370 


TAD 


040 

02613 

3456 


OCA 

I 

EPTR 

02614 

2056 


xsz 


EPTR 

02615 

4432 

NEWCHAR 

,JMS 

I 

PGETCH 

02616 

3456 


OCA 

I 

EPTR 

02617 

7240 


CLA 

CMA 


02620 

1127 


TAD 


INOEV 

02621 

7640 


8ZA 

CLA 


02622 

5226 


JHP 


.♦4 

02623 

3133 


OCA 


CNTLO 

02624 

7201 


CLA 

I AC 


02625 

3131 


OCA 


OUTOEV 


/CHECK TO SEE IF *C WAS TYPED WHILE HERE, 


/GET THE OUTPUT DEVICE, 

/SAVE FOR A SECOND, 

/TURN OFF THE OUTPUT DEVICE, 


/CHECK THE INPUT DEVICE NOW, 

/GET IT, BABY, 

/IS IT THE TTY? 

/NOPE, 

/IT IS, RESET CONTROL 0, 

/AND TEMPORARILY SET THE OUTPUT TO THE TTY 



ASIC.uSE 


PALS-V7 


E 6-2 


22626 

1056 


TAD 

I 

EPTR 


22627 

1374 


TAO 


07403 


22639 

7450 


SNA 



/IS IT 

22631 

5263 


JMP 


ALTMODfc 

/YES 

92632 

1367 


TAO 


036 


92633 

7450 


SNA 



/IS IT 

02634 

5266 


JMP 


BARROW 

/YES 

22635 

1371 


TAO 


0122 


22636 

7450 


SNA 



/IS IT 

92637 

5300 


JMP 


CARRET 

/YES 

02640 

1375 


TAO 


07715 


92601 

7450 


SNA 



/IS IT 

02602 

5215 


JMP 


NEWCHAR 

/YES 

02643 

0372 


AND 


O140B 


02604 

7040 


SZA 




02605 

1363 


TAD 


O7640B 


02646 

7640 


SZA 

CLA 


/IS IT 

02607 

5215 


JMP 


NEWCHAR 

/NO 

02650 

1456 


TAO 

I 

EPTR 


02651 

4433 


JMS 

I 

PPUTCH 


92652 

10S6 


T A0 


EPTR 


02653 

2056 


ISZ 


EPTR 


02650 

1174 


TAO 


mleno 


02655 

7640 


SZA 

CLA 



02656 

5215 


JMP 


NEWCHAR 


02657 

4537 

TU8IG, 

JMS 

I 

PRESET 


02660 

4514 


JMS 

I 

PPRINTXT 

02661 

5162 


TOOLONG 



02662 

5210 


JMP 


NEWLIN 


02663 

4514 

ALTMODE 

i JMS 

I 

PPRINTXT 

02664 

6501 


deleted 



02665 

5210 


JMP 


NEWLIN 


02666 

1056 

BARROW, 

TAD 


EPTR 


02667 

1173 


TAD 


MLBEGIN 


02670 

7650 


SNA 

CLA 



02671 

5215 


JMP 


NEWCHAR 


02672 

7240 


CLA 

CMA 



02673 

1056 


TAO 


EPTR 


02670 

3056 


DCA 


EPTR 


02675 

1373 


TAO 


037370 


02676 

0433 


JMS 

I 

PPUTCH 


02677 

5215 


JMP 


NEWCHAR 


02700 

1007 

CARRET, 

TAD 


0215 


02701 

4433 


JMS 

I 

PPUTCH 


02702 

2134 


ISZ 


NOINT 


02703 

1172 


TAO 


PLBEGIN 

/EPTR* 

02704 

3056 


DCA 


EPTR 

/FPTR« 

02705 

1037 


TAO 


PLINBUF 

/GPRE« 

02706 

3057 


OCA 


EPTR 

/HPTR* 

02707 

1377 

SLOOP, 

TAO 


ptable 


02710 

3061 


OCA 


HPTR 


02711 

1056 

GLOOP, 

TAO 


EPTR 


02712 

3060 


OCA 


GPTR 


02713 

1461 


TAO 

I 

HPTR 


02710 

7650 


SNA 

CLA 




ALT-MOOE (175) 


(CAR, RET.) 


M* 


A printable character 


/RESET ALU DEVICES NOW, 

/AND GIVE THE ERROR HESSAGES, 


/SET FLAG TO PREVENT INTERUPTS AS OF NOW, 
BEGINNING OF STRING 
WHERE TRANSLATED SYMBOL GOES 
CHAR IN STRINGC.GE, EPTR) 

POSITION IN TABLE 



02715 

5776 


JMP 

I 

POTHER 


1061 


TAD 


mPTR 

0271? 

3250 


DC A 


mORO 


0061 


isz 


HPTP 

02721 

3024 


DC A 


ACS 

02722 

1460 

MLOOP, 

TAO 

I 

GPTR 

02703 

1054 


TAD 


07740 

B2T2« 

7640 


SZ A 

CLA 


02725 

5330 


JMP 


BSKIP 

?2?26 

2060 


ISZ 


GPTR 

02727 

5322 


JMP 


MLOOP 

02730 

7330 

BSKIP, 

CLA 

CLL 

CML RAR 

02731 

1024 


TAD 


ACS 

02732 

3024 


DCA 


ACS 

02733 

1*61 


TAO 

X 

HPTR 

02734 

7*30 


SZL 



02735 

2061 


ISZ 


HPTR 

02736 

7*30 


SZL 



02737 

5343 


JMP 


.♦4 

027*8 

7012 


RTR 



027«1 

7012 


n TR 



027*2 

7012 


RTR 



027*3 

3070 


AND 


077 

827** 

7450 


SNA 



027*5 

5766 


JMP 

X 

JMATCH 

027*6 

1054 


TAD 


07740 

027*7 

7450 


SNA 



027S0 

5330 


JMP 


BSKXP 

02751 

0070 


AND 


077 

02752 

1370 


TAD 


040 

02753 

7041 


CX A 



0275* 

1460 


TAD 

X 

GPTR 

02755 

2060 


X8Z 


GPTR 

02756 

7630 


SNA 

CLA 


02757 

5322 


JMP 


MLOOP 

02760 

1461 


TAD 

X 

HPTR 

02761 

0070 


ANO 


077 

02762 

2061 


ISZ 


HPTR 

02763 

7640 

O7640Bf 

SZA 

CLA 


0276* 

5360 


JMP 


• *4 

02765 

5311 


JMP 


GLOOP 

02766 

6506 

JMATCH, 

AMATCH 


02767 

0036 

036 , 

36 



02770 

0040 

040, 

40 



02771 

0122 

0122, 

122 



02772 

0140 

01400, 

140 



02773 

3737 

037370, 

3737 



0277* 

7603 

07603, 

7603 



02775 

7715 

07715, 

7715 



02776 

3000 

POTHER, 

OTHER 


02777 

7023 

ptable, 

XXPLUS 




ASIC.L6E 


pals-vt 


3222 PAGE 


03300 

4310 

OTHER, 

JMS 


N0N8LNK 

03301 

1301 


TAO 


07763B 

03002 

7440 


SZA 



03003 

5223 


JMP 


NOTCR 

03004 

1325 


TAO 


pxxcrlf 

03005 

3457 


OCA 

X 

FPTR 

03006 

1257 


TAO 


FPTR 

03007 

3013 


OCA 


XNOEXl 

03010 

1326 


TAO 


PXXEXXT 

03011 

3413 


OCA 

X 

XNOEXl 

03012 

1013 


TAO 


XNOEXl 

03013 

1041 


TAO 


MENOLXN 

0301« 

7450 


SNA 



03015 

5622 


;mr 

X 

pgetlret 

03016 

7710 


SPA 

CLA 


03017 

5210 


JMP 


• •7 

03020 

5621 


JMP 

X 

PTUBXG 

03021 

2657 

PTUBXG, 

TUBXG 


03022 

2600 

PGETLRE 

,GETLRET 


03023 

1322 

NOTCR, 

TAO 


07737 

03024 

7450 


SNA 



03025 

5724 


JMP 

X 

jdxgxt 

03026 

1302 


TAO 


07764B 

03027 

7100 


CLL 



03030 

1065 


TAO 


012 

03031 

7430 


SZL 



03032 

5724 


JMP 

X 

JOXGXT 

03033 

1300 


TAO 


07725A 

03034 

7100 


CLL 



03035 

1321 


TAO 


032 

03036 

7430 


SZL 



03037 

5703 


JMP 

X 

PLETTER 

03040 

7330 


CLA 

CLL 

cml rar 

03041 

1456 


TAO 

X 

EPTR 

03042 

3456 


OCA 

X 

EPTR 

03043 

1076 

REMPACK 

, T AD 


PTEXT 

03044 

3457 


OCA 

X 

FPTR 

03045 

2057 


xsz 


FPTR 

03046 

3307 

TXTPAK, 

OCA 


THISTXT 

03047 

1456 


TAO 

X 

EPTR 

03050 

1301 


TAO 


07763B 

03051 

7450 


SNA 



03052 

5276 


JMP 


CRXNTXT 

03053 

1304 


TAO 


07753 

03054 

7650 


SNA 

CLA 


03055 

5370 


JMP 


OGXNTXT 

03056 

1456 


TAO 

I 

EPTR 

03057 

0070 


AND 


077 







03062 

3456 


OCA X 

EPTR 

03061 

1307 


TAO 

THISTXT 

03062 

7450 


SNA 


03063 

5270 


J HP 

LHALF 

03064 

1456 


TAO X 

EPTR 

03065 

3457 


OCA X 

FPTR 

03066 

2057 


xsz 

FPTR 

03067 

5274 


JMP 

RHAIP 

03070 

1456 

lhalf, 

TAO X 

EPTR 

03071 

7106 


Cll RTl 


03072 

7006 


rtl 


03073 

7006 


RTl 


03074 

2056 

rwalf, 

xsz 

EPTR 

03075 

5246 


JMP 

TXTPAK 

03076 

1307 

CRXNTXT 

,TAD 

THISTXT 

03077 

5723 


JMP X 

JTXXXT 

03100 

7725 

07725A, 

7725 


03101 

7763 

077638 * 

7763 


03102 

7764 

077648, 

7764 


03103 

3446 

PLETTER 

,IETTER 


03104 

7753 

07753, 

7753 


03105 

4200 

04200, 

4200 


03106 

0042 

042 , 

42 


03107 

0000 

THX3TXT 



03110 

0000 

NONBLNK 

»0 


03111 

1456 


TAO X 

EPTR 

03112 

1054 


TAO 

07740 

03113 

7640 


SZA CLA 


03114 

5317 


JMP 

.♦3 

03115 

2056 


xsz 

EPTR 

03116 

5311 


JMP 

NONBlNIUl 

031 1 T 

1456 


TAO X 

EPTR 

03120 

5710 


JMP X 

NONBLNK 

03121 

0032 

032, 

32 


03122 

7737 

07737, 

7737 


03123 

3201 

4TXXIT, 

MTXXXT 


03124 

3204 

J0X6XT, 

0X6IT 


03125 

7226 

PXXCRLP 

, XXCRLP 


03126 

7505 

PXXEXIT 

, XXEXXT 


03127 

0072 

POPERA, 

OPERAND' 

•1 

03130 

7506 

PXXLIT0 

, XXIXT0 


03131 

4435 

LITRAL, 

FENTER 


03132 

2073 


FST 

OPERANO 

03133 

0000 


FEXXT 


03134 

1075 


TAO 

OPERANDS 

03135 

7640 


SZA CIA 


03136 

5346 


JMP 

ALLS 

03137 

1074 


TAO 

OPERANOM 

03140 

7640 


SZA CLA 


03141 

5347 


JMP 

JU3T2 

03142 

1073 


TAO 

OPERAND 

03143 

7650 


SNA CLA 




ASIC • LAC 


PAL8-V7 


03144 

5350 


JMP 

JUST0 

03U5 

73fl« 

JUST1 , 

CL* CLL 

CM A RAL 

03U6 

7001 

*LL3 r 

1 AC 


03U7 

1060 

JUSTg, 

TAD 

02 

03150 

7040 

JUST0, 

C*A 


03151 

3031 


DC A 

TMP 


C 6*6 




ASIC. Lit 


PAL®-V7 


SE 7 


03152 

1327 


TAD 


POPERA 


03153 

3013 


DC A 


I NOE XI 


03154 

1031 


TAD 


TMP 


03155 

7040 


CMA 




0315* 

1330 


TAD 


PXXIIT0 


03157 

53*3 


JMP 


JUST0P 


031*0 

*201 

JUST0F, 

CDF 


0 

t K insert • 

031*1 

1413 


TAD 

I 

INDEX 1 


031*2 

*211 


CDF 


10 

,,,,,,,,,,,,, a K jnSERT 

031*3 

3«57 

JUST0P, 

DCA 

I 

FPTR 


031*4 

2057 


isz 


FPTR 


031*5 

2031 


18Z 


TMP 


031** 

53*0 


JMP 


JU3T0P 


031*7 

551* 


JMP 

I 

PSLOOP 


03170 

1307 

0Q1NTXT 

i T AO 


THI3TXT 


03171 

205* 


ISZ 


EPTP 


03172 

7440 


SZA 




03173 

537* 


JMP 


.♦3 


03174 

1305 


TAD 


04200 


03175 

5723 


JMP 

X 

JTXXXT 


0317* 

130* 


TAD 


042 


03177 

3457 


DCA 

I 

FPTR 


03200 

2057 


xsz 


FPTR 


03201 

3457 

MTXXIT, 

DCA 

I 

FPTR 


03202 

2057 


isz 


FPTR 


03203 

551* 


JMP 

I 

PSLOOP 



03204 

7200 

DIGIT* 

CLA 



03205 

14*4 


TAD X 

8NUMFLG 


0320* 

137* 


TAD 

01774 


03207 

7440 


SZA 


/IS IT 'GOTO* OR 'THEN* 

03210 

7001 


IAC 



03211 

7440 


SZA 


/OR *G08UB* 

03212 

1375 


TAD 

01742 


03213 

7*50 


SNA CLA 


/OR 'LIST* 

03214 

7240 


CLA CMA 


/YES 

03215 

30*4 


DCA 

3NUMFLG 


0321* 

4435 


FENTER 



03217 

3152 


FLO 

ZERO 


03220 

0000 


FEXIT 



03221 

33*5 


DCA 

DPFLAG 


03222 

33*6 


OCA 

decfrac 


03223 

7410 


SKP 



03224 

205* 

OXGIN, 

ISZ 

EPTR 


03225 

4522 


JMS I 

PNONBLNK 

0322* 

131* 


TAD 

07*73 


03227 

7450 


SNA 



03230 

5263 


JMP 

JTSE 


03231 

1370 


TAO 

027 


03232 

7450 


SNA 



03233 

525* 


JMP 

XTSOP 




^asic.lse pals-v7 


0323* 

137* 


T*0 


07764C 

23235 

7100 


OIL 



2323* 

1065 


TAO 


012 

73237 

7*20 


SNL 



732*0 

5331 


JMP 


ENDNUM 

032*1 

7110 


CLL 

RAR 


032*2 

1373 


TAO 


020*0 A 

032*3 

3360 


OCA 


FDIGIT 

032** 

7010 


RAR 



032*5 

3361 


DC A 


FOIGIUl 

032*6 

**35 


FENTER 


032*7 

65*5 


FMPI 

PTEN 

03250 

*310 


FAD*FWD*FDIGIT*, 

03251 

0000 


FEXIT 


03252 

1365 


TAO 


OPFLAG 

03253 

7640 


SZA 

CLA 


0325* 

2366 


xsz 


DECFRAC 

03255 

522* 


JMP 


DIGIN 

03256 

1365 

ITSDP, 

TAD 


OPFLAG 

03257 

76*0 


fiZA 

CLA 


03260 

5331 


,MP 


ENDNUM 

03261 

2365 


xsz 


OPFLAG 

03262 

5224 


JMP 


DXGXN 

03263 

3360 

IT3E, 

OCA 


FOXGIT 

9326* 

1064 


TAO 


SNUMFLG 

03265 

7640 


SZA 

CLA 


03266 

5331 


JMP 


ENDNUM 

03267 

2056 


XSZ 


EPTR 

03270 

4522 


JMS 

X 

PNONBLNK 

03271 

1371 


TAO 


077258 

03272 

7450 


SNA 



03273 

5300 


JMP 


ITSP 

0327* 

1372 


TAO 


07776 

03275 

7649 


SZA 

CLA 


03276 

5301 


JMP 


NOTSGN 

03277 

2360 


XSZ 


FOXGIT 

03300 

2056 

XTSP, 

xsz 


EPTR 

03301 

4767 

NOTSGN, 

JMS 

X 

JXSOXG 

03302 

5331 


JMP 


ENDNUM 

03303 

2056 


XSZ 


EPTR 

03304 

3361 


OCA 


FOXGITM 

03305 

4767 


JMS 

X 

JXSOXG 

03306 

5322 


JMP 


ONLY 1 

03307 

7200 


CIA 



03310 

1361 


TAO 


FDIGIT+i 

03311 

7106 


CLL 

RTL 


03312 

1361 


TAO 


FDXGXTM 

03313 

7104 


CLL 

RAL 


0331* 

3361 


OCA 


FDIGITM 

03315 

*767 


JMS 

X 

JXSOXG 

03316 

7673 

07673, 

7673 


83317 

1361 


TAD 


FDIGXTM 

03320 

3361 


OCA 


FOXGIT*! 

03321 

2056 


isz 


EPTR 

03322 

1360 

ONLY!, 

TAO 


FOXGIT 


e 7-t 




03323 

7110 


CLU PAR 


03326 

1 3b 1 


tad 

FDIGXTM 

03325 

7622 


SNL 


0332b 

7?«i 


CIA 


0332? 

1366 


TAD 

OECFRAC 

03330 

3366 


OCA 

oecfrac 

03331 

7200 

ENONUM, 

CIA 


03332 

1366 


TAD 

OECFRAC 

03333 

7700 


9MA CLA 


03336 

1366 


TAD 

OIVXTEN 

03335 

1363 


TAO 

MIJLXTEN 

03336 

3366 


OCA 

MULEXP 

03337 

1366 


TAO 

DECFRAC 

033«0 

7510 


SPA 


03361 

7061 


CXA 


03362 

7040 


CMA 


03363 

3366 


OCA 

OECFRAC 

03366 

5350 


JMP 

.♦6 

03365 

6635 


FENTER 


03366 

7602 

MULEXP, 

HIT 


03367 

0000 


cXIT 


03350 

2366 


XSZ 

DECFRAC 

03351 

5365 


JMP 

• •4 

03352 

2066 


X9Z 

SNmmrlG 

03353 

5777 


JMP X 

PLITRAL 

03356 

6506 


JMS X 

PFXX 

03355 

7200 


CLA 


03356 

5757 


JMP I 

PCOMMON 

03357 

3400 

PCOMMON 

, COMMON 


03360 

0000 

FDXGXT, 

01010 


03361 

0000 




03362 

0000 




03363 

6565 

HUIXTEN 

, FMPX 

PTEN 

03366 

1000 

DXVXTEN 

,POV-FMP 


03365 

0000 

DPFLAG, 

0 


03366 

0000 

DECFRAC 

#0 


03367 

6532 

JISOXG, 

XSOXG 


03370 

0027 

027 , 

27 


03371 

7725 

077258 , 

7725 


03372 

7776 

07776, 

7776 


03373 

2060 

O2060A, 

2040 


03376 

7766 

07766C, 

7764 


03375 

1762 

01762, 

1742 


03376 

1776 

01776, 

1774 


03377 

3131 

plitral 

,LXTRAl 



3600 


PAGE 



^ASIC 

.L«£ 




PAL8-V7 7-3 

03400 

1005 

COMMON, 

T *0 


PSYMTAB 

03«0t 

3060 


DC A 


GPTR 

03up2 

1006 


TAD 


NSYMTAB 

33403 

33M 


DC A 


hPTR 

03404 

5231 


JMP 


IN 

03405 

1460 

LUP, 

TAD 

I 

GPTR 

034C6 

2060 


ISZ 


GPTR 

0340T 

2060 


I9Z 


GPTR 

03410 

7640 


SZA 

CLA 

/ XS IT A LINENO 

0341 1 

5227 


JMP 


NOT /NO 

03412 

1460 


TAD 

I 

GPTR 

03413 

2060 


xsz 


GPTR 

03414 

7041 


CIA 



03415 

1017 


TAD 


AC2 

03416 

7640 


SZA 

CLA 


03417 

5230 


JMP 


N0T*1 

03420 

1460 


TAD 

X 

GPTR 

03421 

7041 


CIA 



03422 

1016 


TAD 


ACS 

03423 

7640 


SZA 

CLA 


03424 

5230 


rip 


NOT*l 

03425 

7346 


CLA 

CLL 

CMA RTL 

03426 

5312 


JMP 


X90EP2 

03427 

2060 

NOT, 

xsz 


GPTR 

03430 

2060 


xsz 


GPTR 

03431 

2061 

IN, 

xsz 


HPTR 

03432 

5205 


JMP 


LUP 

03433 

4515 


JM8 

X 

PGETBLK 

03434 

3064 


OCA 


SNUMFLG 

03435 

3464 


OCA 

X 

SNUMFLG 

03436 

1064 


TAO 


snumflg 

03437 

3013 


OCA 


INDEX 1 

03440 

3413 


OCA 

X 

INDEX 1 

03441 

1017 


TAO 


AC2 

03442 

3413 


DCA 

X 

INDEX 1 

03443 

1016 


TAO 


AC3 

03444 

3413 


DCA 

X 

INDEX! 

03445 

5314 


JMP 


IT80EF 

03446 

7001 

LETTER, 

X AC 



03447 

7106 


CLL 

RTL 


03450 

7006 


RTl 



03451 

7006 


RTl 



03452 

3031 


OCA 


TMP 

03453 

2056 


xsz 


EPTR 

03454 

45 22 


JMS 

I 

PN0N8LNK 

03455 

1273 


TAO 


O7706C 

03456 

7100 


CLL 



03457 

1065 


TAO 


012 

03460 

7620 


SNL 

CLA 


03461 

5266 


JMP 


simply 

03462 

1456 


TAO 

X 

EPTR 

03463 

1031 


TAO 


TMP 

03464 

3031 


OCA 


TMP 

03465 

2056 


xsz 


EPTR 

03466 

1005 

SIMPLY, 

TAO 


PSYMTAB 



03467 

3060 


OCA 


GPTR 

P3470 

1006 


TAO 


NSYMTA8 

23671 

3061 


OCA 


hptr 

P3672 

5324 


JMP 


VSCHIN 

03473 

7 7 26 

07 7 06C f 

7706 


03474 

7000 

070008 , 

7000 


03675 

1460 

VSCHLUP 

# TAD 

I 

GPTR 

03476 

1274 


TAO 


070008 

03677 

7640 


SZA 

CLA 


03500 

5320 


JMP 


VSCHNOT 

03501 

2060 


X9Z 


GPTR 

03502 

1460 


TAO 

I 

GPTR 

03503 

3064 


DCA 


SNUMFLG 

03504 

1464 


TAO 

X 

snumflg 

03505 

7041 


CX A 



03506 

1031 


TAO 


TMP 

03507 

7640 


SZA 

CLA 


03510 

5321 


JMP 


V$CHN0T*1 

03511 

7240 


CU 

CMA 


03512 

1060 

ISDEF2, 

T A0 


GPTR 

03513 

3064 


'CA 


SNUMFLG 

03514 

1064 

IT8DEF , 

TAO 


SNUMFLG 

03515 

3457 


DCA 

X 

FPTR 

03516 

2057 


X8Z 


FPTR 

03517 

SS16 


JMP 

X 

PSLQOP 

03520 

2060 

V8CHN0T 

iXSZ 


GPTR 

03521 

2060 


X8Z 


GPTR 

03522 

2060 


X8Z 


GPTR 

03523 

2060 


xsz 


GPTR 

03524 

2061 

VSCHXN, 

X8Z 


HPTR 

03525 

5275 


JMP 


VSCHLUP 

03526 

4515 


JM8 

X 

PGETBLK 

03527 

3064 


DCA 


snumflg 

03530 

7240 


CLA 

CMA 


03531 

1064 


TAD 


SNUMFLG 

03532 

3013 


DCA 


XN0EX1 

03533 

1350 


TAD 


01000 

03534 

3413 


DCA 

X 

INDEX 1 

03535 

1003 


TAD 


ARRLOC 

03536 

3413 


DCA 

X 

INDEX 1 

03537 

3413 


DCA 

X 

XNDEX1 

03540 

3413 


DCA 

X 

INDEX 1 

03541 

4563 


JM3 

X 

PCHKFXT 

03542 

1031 


TAD 


TMP 

03543 

4521 


JM8 

X 

PSTXCKXT 

03544 

4521 


JMS 

X 

PSTXCKXT 

03545 

4521 


JM8 

X 

PSTXCKXT 

03546 

4521 


JMS 

X 

PSTXCKXT 

03547 

5314 


JMP 


XTSDEF 

03550 

1000 

01000 » 

1000 


03551 

0000 

POP# 

0 



03552 

7240 


CLA 

CMA 


03553 

1036 


TAD 


POL 

03554 

3036 


OCA 


PDL 

03555 

1436 


TAD 

X 

PDL 



A5IC.L86 


PAL8-V7 


*GE 7-5 


03556 

5751 


JMP I POP 

P3557 

3737 

FOURLF, 

TEXT ' 1 

03560 

3737 


03561 

0000 



03562 

372a 

UGh l , 

TEXT "^TUO BIG, LINE IGNORED,.' 

03563 

1717 



03564 

4002 



03565 

1107 



03566 

5640 



0356? 

1411 



03570 

1605 



03571 

4011 



03572 

0716 



03573 

1722 



03574 

0504 



03575 

3700 





3600 


PACE 




03600 

1746 

LIST* 

TAO I 

PXLXNBUF 


03601 

3050 


OCA 

WORD 



03602 

4566 


XSIT 



/CHECK FOR A 

03603 

3476 


3476 




03604 

5210 


JMP 

.♦« 


/NOFE, 

03605 

7240 


CLA CMA 



/YEP. SET UP PUTXRA BY GIVING A PHOONEY 

03606 

4541 


JHS X 

PCOWT 


/CALL TO THE WAIT ROUTINE, 

03607 

4177 


•IMS 

GETWD 


/AND GET ANOTHER WORD NOW. 

03610 

4566 


XSXT 


/LXNENO 


03611 

0000 


0000 




03612 

5216 


JMP 

LISTALL 



03613 

2050 


xsz 

WORD 



03614 

1450 


TAD X 

WORD 



03615 

7450 


SNA 




03616 

1004 

LISTALL 

* TAO 

CODELOC 



03617 

3045 

LI3TS0M 

# OCA 

LOCCTR 



03620 

4177 

LXSTLUP 

, JMS 

GETWD 



03621 

4566 


I3IT 


/(EOF) 


03622 

1755 


1753 




03623 

5230 


JMP 

LNOENO 


/NOT OUNE YET 

03624 

4541 


JMS X 

PCOWT 


/WAIT FOR I/O TO FINISH AND CLEAN UP, 

03625 

4302 


JMS 

PRINTXT 



03626 

3557 


POURLF 




03627 

5520 


JMP I 

PEOIT 



03630 

4566 

LNOENO, 

XSXT 


/A LXNENO 

03631 

0000 


0000 




03632 

5240 


JMP 

LIST2 

/NO 




33633 

1353 


TAO 

WORO 


?363a 

0523 


JMS I 

PPRJNUM 


33635 

1351 


TAO 

0240 


33536 

-433 


JMS I 

PPUTCH 


33637 

5220 


JMP 

LISTLUP 


336A0 

4566 

LI3T2, 

I3IT 


/A VARIABLE 

336<*i 

7300 


7000 



33602 

5255 


JMP 

LISTS 


336a3 

2350 


ISZ 

WORD 


336w0 

1453 


TAO 1 

WORD 


33605 

3350 


OCA 

WORD 


33605 

1450 


TAD X 

WORD 


33607 

3253 


OCA 

PRINVAR 


33653 

a3e2 


JMS 

PR J NT XT 


03651 

3653 


PRJNVAR 



03652 

5220 


JMP 

LISTLUP 


33653 

0330 

PRJNVAR 

i0 



0365a 

3300 


0 



33655 

4575 

LIST3, 

JMS I 

PISITLIT 

/ IS IT A LITERAL 

33656 

5261 


JMP 

LIST4 

/NO 

03657 

4517 


v'*S I 

POUTNUM 

/PRINT IT 

33660 

5220 


„MP 

LISTLUP 


03661 

4566 

LI3T4, 

XSXT 


/(TEXT) 

03662 

5000 


5000 



03663 

5276 


JMP 

LXST5 


03664 

4177 

L4LUP, 

JMS 

GETND 


03665 

1050 


TAD 

WORO 


03666 

3253 


DCA 

PRJNVAR 


03667 

4302 


JMS 

PRINTXT 


03670 

3653 


PRJNVAR 



03671 

1050 


TAD 

WORO 


03672 

0070 


AND 

077 


03673 

7640 


8ZA CLA 



0367a 

5264 


JMP 

L4LUP 


03675 

5220 


JMP 

LX8TLUP 


03676 

1050 

LI3T5, 

TAO 

WORO 

/ITS A SYSTEM SYMBOL 

03677 

7001 


JAC 



03700 

4302 


JMS 

PRINTXT 




PAL8-V 


/Wsic.lse 


33721 

5222 


JMp 


LISTLUP 

?37?2 

2?00 

PRINTXT 

f0 



33733 

74*0 


SZA 



?37?a 

5312 


JMP 


JBPENT ♦ 1 

33735 

6201 


COF 


0 

33736 

1702 


TAD 

I 

PRINTXT 

33727 

2322 

JBPENT f 

ISZ 


PRINTXT 

33710 

3042 


DCA 


PRTEMP 

03711 

1442 

PRLOOP, 

tad 

I 

PRTEMP 

03712 

7012 


RTR 



83713 

7012 


RTR 



33716 

7012 


RTR 



337J5 

4324 


JMS 


PRSUBR 

03716 

1442 


tad 

X 

PRTEMP 

03717 

4324 


JMS 


PRSUBR 

33720 

2042 


xsz 


PRTEMP 

33721 

5311 


JMP 


prloop 

03722 

6211 

PRTXRET 

,CDF 


10 

33723 

5702 


JMP 

X 

PRINTXT 

03724 

0000 

PRSUBR f 

0 



03725 

0070 


t ^0 


077 

03726 

7450 


SNA 



03727 

5322 


JMP 


PRTXRET 

03730 

1345 


TAO 


07741 

03731 

7 450 


SNA 



03732 

5340 


JMP 


CRLFPR 

03733 

1070 


TAD 


077 

03734 

0070 


AND 


077 

03733 

1051 


TAO 


0240 

0373S 

4433 


JMS 

X 

PPUTCH 

03737 

5724 


JMP 

X 

PRSUBR 

03740 

1007 

CRLPPR, 

TAO 


0215 

03741 

4433 


JMS 

X 

PPUTCH 

03742 

1010 


TAO 


0212 

03743 

4433 


JMS 

X 

PPUTCH 

03744 

5724 


JMP 

1 

PRSUBR 

03745 

7741 

07741, 

7741 



03746 

7513 

pxlinbu 

t LXNBUF+1 

03747 

0000 

PRXNUH, 

0 



03750 

7001 


X AC 



03751 

3013 


DCA 


XNDEX1 

03752 

4362 


JMS 


BEGFXX 

03753 

1413 


TAD 

I 

INDEX 1 

03754 

3017 


DCA 


AC2 

03755 

1413 


TAD 

X 

INDEX 1 

e37S6 

3016 


DCA 


ACS 

03757 

4546 

— 

JMS 

X 

PANORH 

03760 

4517 


JMS 

X 

POUTNUM 

03761 _ 

5747 


JMP 

X 

PRINUM 


23762 0000 BEGFIX, 0 

23763 3017 OCA 


AC2 



6 K INSERT, 
( K INS £ RT# 


/"""" a K INSERT, 


/SET UP FAC TO RECEIVE INTEGER DATA, 


/SETS UP POR INTEGER TO AC MODE, 

/clear them ail, except for low word. 



PALS-V7 



SIC.lSE 


03764 

3020 


OCA 

AC 1 

03765 

3012 


OCA 

OV 

03766 

3024 


OCA 

ACS 

03767 

1372 


TAO 

0233 

03770 

3025 


OCA 

ACE 

03771 

5762 


JMP I 

BEGFI* 

03772 

0233 

0233, 

233 


03773 

4571 

RESTORE 

, get+mustbe 

03774 

2000 


2000 


03775 

1004 


TAO 

COOELOC 

03776 

3046 


OCA 

REAOLOC 

03777 

5503 


JMP I 

P EXE CUTE 


4000 PAGE 


04000 

4566 

MOREIN, 

1 8 1 T 



04001 

2000 


2000 



04002 

5234 


JMP 


INPLUP 

04003 

1010 


TAO 


0212 

04004 

4433 


JMS 

I 

PPUTCH 

04005 

1130 


TAD 


0UTD2 

04006 

3131 


OCA 


OUTDEV 

04007 

7240 

INPUT, 

CLA 

CMA 


04010 

1127 


TAD 


XNOEV 

04011 

7640 


8ZA 

CLA 


04012 

5224 


JMP 


IPNOPE 

04013 

1131 


TAD 


OUTDEV 

04014 

4504 


JMS 

I 

PPU8H 

04015 

7201 


CLA 

I AC 


04016 

3131 


OCA 


OUTOEV 

04017 

4541 


JMS 

I 

PCOWT 


E 8-1 


OR *\* 


OR # \* 


/GET THE OLD OUTPUT DEVICE, 

/AND RESET IT, 

/CHECK THE INPUT DEVICE NOW, 

/ARE WE INPUT PROM THE TELETYPE, 

/NOPE, 

/GET THE OUTPUT DEVICE, 

/SAVE XT POR A SECOND, 

/SET OUTPUT DEVICE TO TTY POR "T M 

/WAIT POR OUTPUT TO FINISH, THEN CONTINUE. 



pals-v 


7402? 

1070 


tad 


077 

04021 

4^33 


JM$ 

I 

PPUTCH 

24222 

4505 


JM$ 

I 

PPOP 

24023 

3131 


DCA 


OUTOEV 

0«e24 

1045 

IPNOPE, 

TAO 


LOCCTR 

04025 

3565 


DCA 

I 

CStJPTR 

04026 

1076 


TAD 


PTEXT 

0402? 

4524 


JMS 

I 

PGETLIN 

04030 

1565 


TAO 

I 

GSBPTR 

04031 

3045 


DCA 


LOCCTR 

04032 

1037 


TAD 


PLXNBUP 

04033 

3263 


DCA 


INPPTR 

04034 

4513 

iNPLUPf 

JMS 

I 

PGETVAR 

04035 

1050 


TAD 


«0R0 

04036 

3264 


DCA 


INWDTMP 

0403? 

1045 


TAD 


LOCCTR 

04040 

3265 


DCA 


INLCTMP 

04041 

1263 


TAD 


INPPTR 

04042 

3045 


DCA 


LOCCTR 

04043 

4501 


JMS 

I 

peval 

04044 

1045 


m 


LOCCTR 

04045 

3263 


DLA 


INPPTR 

04040 

1265 


TAO 


INLCTMP 

04047 

3045 


DCA 


LOCCTR 

04050 

4512 


JMS 

X 

P8T0VAR 

04051 

7332 


CLA 

CLL 

CML RTR 

04052 

1664 


TAO 

X 

INWOTMP 

04053 

7648 


SZA 

CLA 


04054 

5200 


JMP 


MOREIN 

04055 

1010 


TAO 


0212 

04056 

4433 


JMS 

I 

PPUTCH 

04057 

1130 


TAO 


0UTD2 

04060 

3131 


OCA 


OUTOEV 

0406! 

3126 


OCA 


COLUMN 

04062 

5503 


JMP 

I 

PEXECUTE 

04063 

0000 

INPPTR, 

0 



04064 

0000 

INWOTMP 

*0 



04065 

0000 

INLCTMP 

*0 



04066 

0000 

XGISXT, 

0 



04067 

4177 


JMS 


GETWD 

04070 

1266 


TAD 


XGX8IT 

04071 

3273 


OCA 


XISIT 

04072 

5274 


JMP 


XISITM 

04073 

0000 

XISIT , 

0 



04074 

1450 


TAO 

I 

WORD 

04075 

6201 


COP 


0 

04076 

1673 


TAO 

X 

XISIT 

04077 

6211 


COP 


10 

04100 

2273 


xsz 


XISIT 

04101 

7650 


SNA 

CLA 


04102 

2273 


ISZ 


XISIT 

04103 

5673 


JMP 

I 

XISIT 

04104 

0000 

isitlit 

*0 



04105 

1450 


TAD 

I 

WORD 

04106 

7146 


CLL 

CMA 

RTL 



/RESET OUTPUT DEVICE MOM, 


/RESET THE DEV* BABY 


/ 


B K INSERT, 
S K INSERT, 




. 16 * 



P® S-3 

ea i er 

7032 


C*L RTR 


00110 

3020 


OCA 

ACS 

00111 

1024 


TAO 

ACS 

04112 

1160 


TAO 

04 

00113 

7620 


SNL CLA 


00110 

5700 


JMP I 

isitlit 

00115 

2304 


ISZ 

isitlit 

00116 

3020 


OCA 

AC 1 

00117 

3017 


OCA 

AC2 

00120 

3016 


OCA 

ACS 

00121 

0333 


JM8 

ISLIT 

00122 

3016 


OCA 

ACS 

00123 

0333 


JMS 

ISLIT 

00120 

3017 


OCA 

AC2 

00125 

4333 


JMS 

ISLIT 

00126 

3020 


OCA 

AC l 

00127 

0435 

LOADED* 

RENTER 


00130 

3016 


FLO 

AC3 

00131 

0000 


PEXXT 


00132 

5704 


JMP X 

isitlit 

00133 

0000 

ISLIT # 

0 


00130 

2024 


x a 

ACS 

00135 

7410 


SKF 


00136 

5327 


JMF 

LOADED 

00137 

4177 


JMS 

GETWD 

04100 

1050 


TAO 

WORD 

04141 

5733 


JMF X 

ISLIT 

04142 

0000 

ERROR# 

0 


00143 

4537 


JMS X 

PRESET /RESET ALU I/O DEVICES, 

04144 

4514 


JMS X 

PPRINTXT 

04145 

6531 


CRLF 


04146 

1342 


TAO 

ERROR 

04147 

3351 


OCA 

.♦2 

04150 

4514 


JMS X 

PPRINTXT 

04151 

7402 


HLT 


00152 

0514 


JMS X 

PPRINTXT 

04153 

4170 


QERROR 


04154 

1452 


TAO I 

LINENO 

04155 

7710 


SPA CLA 


04156 

5363 


JMF 

• ♦9 

04157 

4514 


JMS X 

PPRINTXT 

04160 

6051 


atlxne 


04161 

1052 


TAO 

LINENO 

04162 

4523 


JMS X 

PPRXNUM 

04163 

0514 


JMS X 

PPRINTXT 

04160 

6531 


CRLF 


04165 

1125 


TAO 

PPOLXST 

04166 

3036 


DCA 

POL 

04167 

5520 


JMF X 

PEOXT 

00170 

0005 

QERROR ' 

TEXT * 

ERROR* 

04171 

2222 




00172 

1722 




00173 

0000 






XC. 16 E 


PAL8-V7 


PWl 8-4 


4200 PAGE 





/ 

JMS 

FPT 

/ENTER FLOATING POINT PACK 




/ 

0000 


/FEXIT 




✓ 

0040 


/FSNE 




/ 

0030 


/FSEO 




/ 

0100 


/FSGE 




/ 

0110 


/FSIT 




/ 

0140 


/FSGT 




/ 

0130 


/FSLE 




/ 


Xf BIT 

4 OFF THEN SAME AS PDP»P 




/ 


IF BIT 

4 ON THEN IF BIT 3 OFF YHEN RELATIVE PLUS 




/ 



IF BIT 3 ON THEN RELATIVE MINUS 




/ 

1XXX 


/F JMP 




/ 

2XXX 


/FST 




/ 

3XXX 


/FLO 




/ 

4XXX 


/FAD 




/ 

5XXX 


/FSB 




/ 

6XXX 


/FMP 




/ 

7XXX 


/FDV 

04200 

0000 

FPT, 

0 




04201 

5204 


JMP 

.♦3 



04202 

4540 

FPLOOP, 

JMS X 

PANORM 



04203 

2200 


xsz 

FPT 



04204 

0201 


C0F 

0 



04203 

1000 


TAD X 

FPT 



04204 

7000 


RTL 




04207 

7000 


«Tl 




04210 

0072 


AND 

07 



04211 

7430 


SNA 




04212 

5303 


JMP 

PROPER 



04213 

3273 


OCA 

FPGOTO 



04214 

1000 


TAD X 

FPT 



0421S 

0155 


ANO 

0200 



04216 

7050 


SNA CIA 



04217 

5227 


JMP 

FPPGZ 



04220 

1400 


TAD I 

FPT 



04221 

0027 


AND 

0177 



04222 

7430 


szu 




04223 

7041 


CXA 




04224 

1200 


TAD 

FPT 



04223 

3304 


DCA 

PPADDR 



04220 

5237 


JMP 

rPDOIT 



04227 

1600 

FPPGZ f 

TAO X 

FPT 



04230 

0027 


AND 

0177 



04231 

3304 


OCA 

PPADDR 



04232 

7420 


8NL 




04233 

5237 


JMP 

FPDOIT 



04234 

1704 


TAD I 

PPADDR 





PAL8-V7 



IC.LSE 


94235 

3304 


OCA 

FPAOOR 

342 38 

6211 


COF 

10 

a«2 37 

7346 

FPDOIT, 

CL* CLl 

CM* RTL 

24240 

1273 


TAO 

FP60TO 

94241 

7710 


SPA CCA 


94242 

5270 


JMP 

FPNOAOR 

24243 

7330 


CIA CLL 

CML RAR 

24244 

0704 


AND X 

FPAOOR 

24245 

3026 


OCA 

OPS 

24246 

1704 


TAD I 

FPAOOR 

24247 

7640 


SZA CLA 


24250 

7040 


CMA 


20251 

3156 


OCA 

FPFLAS 

24252 

1704 


TAO X 

FPAOOR 

04253 

7012 


RTR 


24254 

7010 


RAR 


24255 

0071 


AND 

0377 

24256 

3030 


OCA 

OPE 

24257 

1704 


TAD I 

FPAOOR 

24260 

0072 


AMO 

07 

04261 

3023 


0 n 

OPI 

04262 

2304 


X4Z 

FPAOOR 

04263 

1704 


TAO X 

FPAOOR 

04264 

3022 


OCA 

0P2 

04265 

2304 


xsz 

FPAOOR 

04266 

1704 


TAO I 

FPAOOR 

04267 

3021 


OCA 

0P3 

04270 

1273 

FPNOADR 

, TAD 

FPGOTO 

04271 

1274 


TAO 

FPJUMP 

04272 

3273 


OCA 

.♦l 

04273 

7402 

FP60T0, 

HLT 


04274 

5674 

FPJUMP, 

JMP X 

• 

04075 

4317 


FP JMP 


04276 

4322 


FPSTO 


04277 

4351 


FPLAC 


04300 

4456 


FPADO 


04301 

4453 


FP8U0 


04302 

4530 


FPMUL 


04303 

4667 


FPDIV 


24304 

0000 

FPADDR, 

0 


04305 

1600 

FPOPER, 

TAO I 

FPT 

04306 

6211 


CDF 

10 

04307 

7450 


SNA 


04310 

5600 


JMP X 

FPT 

04311 

1345 


TAO 

07600 

04312 

3314 


OCA 

FP8KIP 

04313 

4333 


JM8 

HXGHWO 

84314 

7402 

FP8KXP, 

HLT 


04315 

2200 


XSZ 

FPT 

04316 

5203 


JMP 

FPLOOPM 

04317 

1304 

FPJMP* 

TAD 

FPAOOR 

24320 

3200 


OCA 

FPT 

34321 

5204 


JMP 

FPL00P*2 

04322 

4333 

FP8T0# 

JMS 

HXGHMO 

24323 

3704 


OCA X 

FPAOOR 


FWE 8-5 


6 K INSERT. 


8 K INSERT, 



ML8-V7 


/ 




04324 

2304 

I9Z 


FPAOOR 

04325 

1017 

TAO 


AC2 

04326 

3704 

OCA 

I 

fpaoor 

04327 

2324 

ISZ 


FPAOCR 

04330 

1016 

TAD 


AC3 

04331 

3704 

OCA 

I 

FPAODR 

04332 

5203 

JMP 


FPLOOR*t 

04333 

0000 

HlGHtaO, 0 



04334 

1025 

TAO 


ACE 

04335 

7104 

cu 

RAL 


04336 

7500 

SMA 





PAL6-V7 



C*L#C 



2*337 7106 

3*3*0 7530 

?*3* 1 53*5 

3*3*2 1024 

24343 1229 

243*4 5733 

24345 7600 07600 f 

24346 1071 

04347 3225 

24350 5334 

04351 1026 FPLAC, 

04352 3024 

24353 1030 

04354 3025 

04355 1023 

04356 3020 

04357 1022 

04360 3017 

04361 1021 

04362 3016 

04363 3012 

04364 5202 

04365 7041 UPARR2 

04366 3013 

04367 4435 

04370 3151 

0437 1 0000 

04372 5376 

04373 4435 

04374 6071 

04375 0000 

04376 2013 

04377 5373 

04400 5601 

04401 1203 


CLL PTL 
SPA 8ZL 


JMP 

07600 

TAO 

ACS 

TAO 

AC 1 

JMP X 
7600 

H2GHWD 

TAO 

0377 

OCA 

ACE 

JMP 

HXGHWDM 

TAO 

OPS 

OCA 

ACS 

TAD 

OPE 

OCA 

ACE 

TAO 

0P1 

OCA 

AC 1 

TAO 

0P2 

DCA 

AC2 

TAD 

0P3 

OCA 

ACS 

OC 

ov 

JM^ 

CX A 

PPLOOP 

DCA 

PENTER 

INDEX 1 

FLO 

PEXIT 

ONE 

JMP 

RENTER 

.♦4 

FMP 

PEXIT 

OPERAND 

XSZ 

XNOEXl 

JMP 

,•4 

JMP X 
OPOONE 



/ (CMA) IP 1 ORG INDEXING 


04402 

0000 

AR1 1 

0 



04403 

1020 


TAO 


AC 1 

04404 

7110 


CLL 

RAR 


04405 

3020 


OCA 


ACl 

04406 

1017 


TAO 


AC2 

04407 

7010 


RAR 



04410 

3017 


OCA 


AC2 

044U 

1016 


TAD 


ACS 

04412 

7010 


RAR 



04413 

3016 


DCA 


ACS 

04414 

7010 


RAR 



04415 

3012 


OCA 


OV 

04416 

5602 


JMP 

I 

AR 1 

04417 

0000 

ACN, 

0 



04420 

1234 


TAO 


POPS 



PAL8-V7 


/8~IC.L«e 




aaa^i 

3235 


OCA 


OAOO 

Jaa* 2 

7346 


eu 

CLL 

CMA RTL 


3202 


OCA 


AR 1 

juaja 

7024 


CML 

ral 


?4425 

1635 


TAO 

X 

OAOO 


7041 


CIA 



04427 

3635 


OCA 

X 

OAOO 

24430 

2235 


xsz 


OAOO 

04431 

2202 


ISZ 


AR 1 

04432 

5224 


JMP 


• •6 

04433 

5617 


JMP 

I 

ACN 

04434 

0021 

POP3, 

OP3 



04435 

0000 

OAOO, 

0 



04436 

7100 


CLL 



04437 

1016 


TAO 


AC3 

04440 

1021 


TAO 


0P3 

04441 

3016 


OCA 


ACS 

04442 

7004 


RAL 



04443 

1017 


TAO 


AC2 

04444 

1022 


TAO 


0P2 

04445 

3017 


DC * 


AC2 

04446 

7004 


RAL 



04447 

1020 


TAO 


AC1 

04450 

1023 


TAO 


OP1 

04451 

3020 


OCA 


AC1 

04452 

5635 


JMP 

X 

OAOO 

04453 

7330 

FPSUB, 

CLA 

CLL 

CML RAR 

04454 

1026 


TAD 


OPS 

04455 

3026 


OCA 


0P8 

04456 

2156 

FPADD, 

xtz 


FPFLA6 

04457 

5326 


JMP 


EOFAO 

04460 

1025 


TAD 


ACE 

04461 

7141 


CLL 

CIA 


04462 

1030 


TAD 


OPE 

04463 

7430 


SZL 



04464 

5302 


JMP 


8CKWD8 

04465 

3235 


OCA 


OADD 

04466 

1023 

ALGNLP, 

TAO 


OPi 

04467 

7110 


CLL 

RAR 


04470 

3023 


OCA 


OPi 

04471 

1022 


TAO 


0P2 

04472 

7010 


RAR 



04473 

3022 


OCA 


OPE 

04474 

1021 


TAO 


OP3 

04475 

7010 


RAR 



04476 

9021 


OCA 


OPS 

04477 

2235 


IBZ 


OAOO 

04500 

5266 


JMP 


algnlf 

04501 

5312 


JMP 


8ET8GN 

04502 

7040 

BCKW08, 

CMA 



04503 

3235 


OCA 


OAOO 

04504 

1030 


TAO 


OPE 

04505 

3025 


DCA 


ACE 

04506 

7410 


8KP 



04507 

4202 


JM8 


AR1 



PALG-V7 



04510 

2235 


181 


QAOD 

04511 

5307 


JMP 


i*2 

0*512 

1324 

8ETSGN, 

TAO 


ACS 

e*5t3 

1026 


TAD 


OPS 

0*514 

7710 


SPA 

CLA 


04515 

4217 


JW0 


ACN 

04516 

4235 


JMS 


QAOD 

0451T 

1020 


TAO 


AC 1 

04520 

7700 


SMA 

CLA 


04521 

5326 


JMP 


EOF AD 

04522 

7346 


CLA 

CLL 

CMA RTL 

04523 

4217 


JM8 


ACN 

04524 

1026 


TAO 


OPS 

04525 

3024 


OCA 


ACS 

*4520 

3012 

EOF AD, 

OG4 


OV 

0452T 

5775 


JMP 

I 

PPPLOOP 

04530 

2156 

fpmul, 

xsz 


FPFLAG 

04531 

5371 


JMP 


MULCLR 

04532 

1024 


TAO 


ACS 

04533 

1026 


TAD 


OPS 

04534 

3024 


Or » 


ACa 

04535 

1025 


T .0 


ACE 

04536 

1030 


TAO 


OPE 

04537 

1377 


TAO 


07577 

04540 

3025 


OCA 


ACI 

04541 

1020 


TAD 


AC1 

04542 

3026 


OCA 


OPS 

04543 

1017 


TAO 


AC2 

04544 

3030 


DCA 


OPE 

04545 

1016 


TAO 


ACS 

04546 

3031 


DCA 


TMP 

04547 

3020 


DCA 


ACI 

04550 

1162 


TAO 


07745 

04551 

3376 


DCA 


PP TEMP 

04552 

4202 

MPYLUP, 

JMS 


ARl 

04553 

1026 


TAD 


OPS 

04554 

7010 


RAR 



04555 

3026 


OCA 


OPS 

04556 

1030 


TAO 


OPE 

08557 

7010 


PAR 



04560 

3030 


OCA 


OPE 

04561 

1031 


TAO 


TMP 

04562 

7010 


RAR 



*«563 

3031 


DCA 


TMP 

04564 

7430 


SZL 



04565 

4235 


JMS 


OAOD 

04566 

2376 


XSZ 


PP TEMP 

04567 

5352 


JMP 


MPYLUP 

04570 

5775 


JMP 

X 

PPPLOOP 

04571 

7346 

MULCL*, 

CLA 

CLL 

CMA RTL 

04572 

3025 


OCA 


ACE 

04573 

3020 


OCA 


ACI 

04574 

5775 


JMP 

X 

PPPLOOP 

04575 

4202 

PFP100P 

,FP100P 


04576 

0000 

PPTEMP, 

0 





PA L8-VT 


'sic.lse 



9-3 


3*577 7577 07577, 7577 


4600 PAGE 


04600 

0000 

ANORM, 

0 



34631 

1020 


TAD 


AC 1 

04602 

7450 


SNA 



04603 

5212 


JMP 


mayzero 

04604 

1055 


TAD 


07770 

04605 

7710 


SPA 

CLA 


04606 

5220 


JMP 


NOTBIG 

04607 

4547 


JM1 

I 

PARI 

04610 

2025 


n: 


ACE 

04611 

5201 


jkp 


ANORM* t 

04612 

1017 

MAYZEROi 

} T AO 


AC2 

04613 

7640 


3ZA 

CLA 


04614 

5220 


JMP 


NOTBIG 

04615 

1016 


TAD 


ACS 

04616 

7650 


SNA 

CLA 


04617 

5245 


JMP 


UNDERF 

04620 

1012 

NOT0IG, 

TAD 


OV 

04621 

7650 


SNA 

CLA 


04622 

5233 


JMP 


NOBUMP 

04623 

2016 


ISZ 


ACS 

04624 

5233 


JMP 


NOBUMP 

04625 

2017 


ISZ 


AC2 

04626 

5233 


JMP 


NOBUMP 

04627 

2020 


ISZ 


AC1 

04630 

3012 


DCA 


OV 

04631 

5201 


JMP 


ANORM+1 

04632 

7240 


CLA 

CMA 


04633 

1025 

NOBUMP, 

TAD 


ACE 

04634 

7510 


SPA 



04635 

5245 


JMP 


UNDERF 

04636 

3025 


DCA 


ACE 

04637 

7346 


CLA 

CLL 

CMA RTL 

04640 

1020 


TAO 


AC1 

04641 

7740 


3MA 

SZA 

CLA 

04642 

5600 


JMP 

I 

ANORM 

04643 

4254 


JM3 


ALI 

04644 

5232 


JMP 


NOBUMP-1 

04645 

7200 

UNDERF, 

CLA 



04646 

3024 


DCA 


ACS 

04647 

3025 


DCA 


ACE 

04650 

3020 


DCA 


AC 1 


/IS HIGH WORD ZERO? 

/YEP, ENTIRE NUMBER MAY BE ZERO, 


/IS SECOND WORD ZERO? 

/NOPE, NORMAL NORMALIZE, 

/I ft 2 ARE ZERO, IS THIRO WORD? 

/YEP, CLEAR AC, ALL ZERO, 



palb-v7 



ic.ufit 


0U651 

3017 


OCA 


AC2 

04652 

3016 


OCA 


ACS 

0U653 

5620 


JM P 

I 

ANORm 

0465a 

2000 

ALi , 

0 



04655 

1016 


TAO 


ACS 

04656 

7104 


Cll 

RAL 


04657 

3016 


OCA 


ACS 

04669 

1017 


TAD 


AC2 

04661 

7004 


RAL 



04662 

3017 


OCA 


AC2 

04663 

1020 


TAO 


AC1 

04664 

7004 


RAL 



04665 

3020 


OCA 


AC 1 

04666 

5654 


JMP 

I 

AL1 

04667 

6201 

FPOIV, 

CDF 


0 

04670 

2156 


isz 


FPFLAG 

04671 

5336 


JMp 


FPZDIV 

04672 

1024 


TAD 


ACS 

04673 

1026 


TAD 


OPS 

04674 

3024 


OCA 


ACS 

04675 

1030 


t :> 


OPE 

04676 

7041 


C Ik 



04677 

1025 


TAD 


ACE 

04700 

1027 


TAD 


0177 

04701 

3023 


DCA 


ACE 

04702 

3031 


DCA 


TMP 

04703 

1343 


TAD 


07743 

04704 

3200 


DCA 


ANORM 

04705 

7330 

DZVLPf 

CLA 

CLL 

CML RAR 

04706 

0023 


ANO 


0P1 

04707 

1020 


TAD 


AC 1 

04710 

7700 


SMA 

CLA 


04711 

4742 


JUS 

X 

PACN 

04712 

4557 


JMS 

I 

POAOD 

04713 

1031 


TAD 


TMP 

04714 

7004 


RAL 



04715 

3031 


DCA 


TMP 

04716 

1030 


TAD 


OPE 

04717 

7004 


RAL 



04720 

3030 


DCA 


OPE 

04721 

1026 


TAD 


OPS 

04722 

7004 


RAL 



04723 

3026 


DCA 


OPS 

04724 

4550 


JMS 

I 

PALI 

04725 

2200 


I8Z 


ANORM 

04726 

5305 


JMP 


DXVLP 

04727 

1026 


tad 


OPS 

04730 

3020 


DCA 


AC1 

04731 

1030 


TAD 


OPE 

04732 

3017 


DCA 


AC2 

04733 

1031 


TAO 


TMP 

04734 

3016 


DCA 


ACS 

04735 

5741 


JMP 

I 

PPFLOOP 

04736 

1071 

FPZOIV, 

TAO 


0377 

04737 

3025 


DCA 


ACE 



a K INSERT t 



IC 

• U6£ 



PAL8-V7 

6-5 

• 

04?tt0 

5*41 


JMP I 

PPPLOOP 



04*4 1 

4202 

PPFLOOP 

,FPLOOP 




C? a T ai 

4417 

PACN, 

acn 




guTa J 

7*43 

0**43, 

7*43 




04744 

0000 

FIX, 

0 




04*45 

1020 


TAO 

AC1 



04*46 

7650 


SNA CLA 




04747 

5367 


JMP 

ZPXXEX 



04750 

1025 

FIXLUP, 

TAD 

ACE 



04751 

1377 


TAO 

07545 



04752 

7700 


SMA CIA 




04753 

5373 


JMP 

FIXEXXT 



04754 

4547 


JUS I 

PARI 



04755 

1024 


TAO 

ACS 



04756 

0012 


AND 

OV 



04757 

7640 


SZA CLA 




04760 

2016 


xsz 

ACS 



04761 

5365 


JMP 

.♦4 



04762 

2017 


xsz 

AC2 



04763 

5365 


JMP 

.♦2 



04764 

2020 


I' 

AC1 



04765 

2025 


IJZ 

ACE 



04766 

5350 


JMP 

FIXLUP 



04767 

3025 

zfixex, 

DCA 

ACE 



04770 

3020 


OCA 

AC1 



04771 

3017 


OCA 

AC2 



04772 

3016 


OCA 

ACS 



04773 

3012 

FIXEXXT 

, DCA 

OV 



04774 

1016 


TAD 

ACS 



04775 

7001 

S8FXX, 

X AC 

/(NOP) 

XF 1 QRG INDEXING 


04776 

5744 


JMP X 

FIX 



04777 

7545 

07545, 

7545 






5000 

PAGE 



05000 

0000 

OUTNUM, 0 



05001 

6201 

COF 

0 

0 K INSERT , 

05002 

1024 

TAO 

ACS 


05003 

7700 

SMA CLA 



05004 

5207 

JMP 

.♦3 


05005 

1351 

TAO 

0255 


05006 

4433 

JMS I 

PPUTCH 


05e07 

1020 

TAO 

AC 1 


05010 

7640 

SZA CLA 



05011 

5216 

JMP 

NONZERO 


05012 

1011 

TAD 

0260 


05011 

4433 

JMS I 

PPUTCH 




•sic 

, 18E 



9-6 

05314 

6211 

COP 


10 B K INSERT, 

05215 

5600 

JMP 

I 

OUTNUM 

05216 

6746 

NONZERO, JMS 

I 

FIXUP 

05017 

1355 

TAD 


07771 

05020 

3042 

OCA 


PRTEMP 

05021 

1046 

TAO 


pnumbuf 

05022 

3025 

OCA 


ACE 

05023 

5230 

JMP 


.♦5 

?502« 

1020 

CvTLOOP , TAO 


AC 1 

05025 

0027 

AND 


0177 

05026 

3020 

DCA 


AC 1 

05027 

6760 

JM8 

I 

PMPY 

05030 

1020 

TAD 


AC 1 

05031 

7006 

rtl 



05032 

7006 

RTL 



05033 

7006 

rtl 



05036 

0347 

AND 


017 

05035 

1011 

TAD 


0260 

05036 

3425 

DCA 

X 

ACE 

05037 

2025 

xsz 


ACE 

05060 

2062 

nz 


PRTEMP 

05061 

5224 

* MP 


CVTLOOP 

05062 

7326 

CIA 

CLL 

CML RTL 

85063 

1043 

TAD 


DECEXP 

05066 

7450 

SNA 



05065 

5325 

JMP 


FMT1 /.0NNNNNNN 

05066 

7510 

SPA 



05067 

5253 

JMP 


FMT2 /N,NNNNNNE»NN 

0S050 

1055 

TAD 


07770 

05051 

7710 

SPA 

CLA 


05052 

5330 

JMP 


FMT3 /OTHER THAN N,NNNNNNE*NN 

•5053 

7200 

FMT2, CLA 


/N,NNNNNNE*NN 

05056 

1044 

TAO 


PNUMBUF 

85055 

3025 

OCA 


ACE 

05056 

1357 

TAO 


07772 

05057 

3042 

DCA 


PRTEMP 

05060 

1425 

TAD 

X 

ACE 

05061 

4433 

JMS 

I 

PPUTCH 

05062 

1356 

TAD 


0256A 

05063 

4433 

JMS 

X 

PPUTCH 

05066 

2025 

I3Z 


ACE 

05065 

1425 

TAD 

X 

ACE 

05066 

4433 

JMS 

X 

PPUTCH 

05067 

2042 

xsz 


PRTEMP 

05070 

5264 

JMP 


.•« 

05071 

1352 

TAD 


0305 

05072 

4433 

JMS 

I 

PPUTCH 

05073 

1043 

TAD 


DECEXP 

05076 

7710 

SPA 

CLA 


05075 

7326 

CLA 

CLL 

CHL RTL 

05076 

1350 

TAD 


0253 

05077 

4433 

JMS 

X 

PPUTCH 

05100 

3025 

OCA 


ACE 

05101 

1043 

TAD 


DECEXP 

85102 

7510 

SPA 





#: 

.11 € 


PAL8-VT 

05103 

T 8 4 1 

CIA 


05106 

3043 

OCA 

OECEXP 

05105 

1243 

TAD 

OECExP 




/Urate. l*c 


PWe 10 


PALS-V7 


05106 

1354 


TAO 07766 



05107 

7510 


SPA 



05110 

531« 


JKP ,t4 



?5ll 1 

3043 


oca oecexp 



05112 

2025 


ISZ ACE 



35113 

5305 


JMP .-6 



051 1 * 

7200 


CIA 



05115 

1025 


TAD ACE 



05116 

1011 


TAD 0260 



05117 

4433 


JM3 I PPUTCH 



35120 

1043 


TAO OECEXP 



95121 

1011 


TAD 0260 



05122 

4433 


JM$ I PPUTCH 



05123 

6211 

FMT6MF, 

COF 10 

/****< 


05124 

5600 


JMP I OUTMUM 



05125 

4514 

FMT1, 

JM3 I PPRINTXT 



05126 

7371 


DOTZERO 



05127 

6201 


COF 0 

/ 9 9 9 H 

****** S K INSERT 

05130 

1355 

FMT3, 

TAO 07771 



05131 

3042 


OCA PRTEMP 



05132 

1361 


T ' j PN0F6 



05133 

3025 

TRYAGIN 

, OJA ACE 



05134 

1425 


TAD X ACE 



05135 

1353 


TAO 07520 



05136 

7640 


SZA CLA 



05137 

5344 


JMP ZERDONE 



05140 

2042 


ISZ PRTEMP 



05141 

7240 


CLA CMA 



05142 

1025 


tad ace 



05143 

5333 


JMP TRYAGIN 



05144 

5745 

zerdone 

, JMP X ,♦! 

f 9 9 9 f ( 

"«* S K INSERT, 

05145 

6545 


PZERDONE 

f9999\ 

>*• S K INSERT, 

05146 

5200 

FIXUP , 

FIXXTUP 



05147 

0017 

on, 

17 



05150 

0253 

0253, 

253 



05151 

0255 

0255, 

255 



05152 

0305 

0305# 

305 



05153 

7520 

07520, 

7520 



05154 

7766 

07766, 

7766 



05155 

7771 

07771, 

7771 



05156 

0256 

0256A, 

256 



05157 

7772 

07772, 

7772 



05160 

5321 

PMPY, 

MPY 



05161 

5343 

PNBF6, 

NUMBUFP6 



05162 

3714 

T0010NG 

, TEXT ^LXNi TOO LONG.,.* 



05163 

1116 





05164 

0540 





05165 

2417 





05166 

1740 





35167 

1417 





05170 

1607 





05171 

3700 







PAL4-V7 


12-1 


rsic.LiE 



5200 


RAGE 


05220 

0000 

FIX1TUP 

i0 



05201 

1025 


TAO 


ACE 

05202 

1345 


TAO 


07610 

05205 

3025 


DCA 


ACE 

05204 

7410 


SKP 



05205 

1043 

OCC, 

TAO 


DECEXP 

05206 

3043 


DCA 


DECEXP 

05207 

1020 

NORMXT, 

TAO 


AC1 

05210 

7006 


RTl 



05211 

7630 


8ZL 

CLA 


05212 

5220 


JMP 


NORMEO 

05215 

4550 



Z 

PALI 

05214 

7240 


CLA 

CMA 


05215 

1025 


TAO 


ACE 

05216 

3025 


DCA 


ACE 

05217 

5207 


JMP 


NORMXT 

05220 

1025 

NORMED, 

TAO 


ACE 

05221 

7540 


SMA 

8ZA 


05222 

5236 


JMP 


NOTX10 

05225 

7200 


CLA 



05224 

4547 


JMS 

I 

PARI 

05225 

4547 


JH8 

Z 

PAR& 

05226 

4547 


JMS 

z 

PARI 

05227 

4547 


JMS 

z 

PARI 

05250 

4321 


JMS 


MPY 

05251 

1025 


TAO 


ACE 

05232 

1160 


TAD 


04 

05235 

3025 


OCA 


ACC 

05254 

7240 


CLA 

CMA 


05235 

5205 


JMP 


OCC 

05236 

1346 

NOTX10, 

TAO 


07773 

05237 

7510 


SPA 



05240 

5265 


JMP 


EXPOK 

05241 

7200 


CLA 



05242 

1054 

EXPGOOD 

# TAD 


07740 

05243 

3321 


DCA 


MPY 

05244 

7100 


CLL 



05245 

1020 

OVLOOP, 

TAO 


ACi 

05246 

1347 


TAO 


05400 

05247 

7500 


SMA 



05250 

3020 


OCA 


ACI 

05251 

7264 


CLA 

cml 

CMA RAL 

05252 

3023 


OCA 


0P1 

05253 

4550 


JMS 

z 

PALI 

05254 

2923 


Z9Z 


0P1 

05255 

2016 


HZ 


AC3 





rsic.ififc 


rVZl i0-2 


05256 

2321 


X9Z 


HP V 

35257 

5245 


JMP 


OVLOOP 

35260 

1 020 


TAD 


ACi 

35261 

0071 


ANO 


0377 

05262 

3020 


OCA 


ACI 

05263 

7201 


CLA 

X AC 


05264 

5205 


JMP 


occ 

05265 

3042 

EXPOK, 

OCA 


PRTEMP 

05266 

7410 


SKP 



05267 

4547 


JM9 

I 

PARI 

05270 

2042 


ISZ 


PRTEMP 

05271 

5267 


JMP 


• •2 

35272 

1020 


TAD 


ACI 

05273 

1347 


TAD 


05400 

05274 

7700 


SMA 

CLA 


05275 

5242 


JMP 


EXPGOOO 

05276 

7300 


CLA 

CLL 


05277 

1016 


TAO 


AC3 

05300 

1344 


TAD 


02062 

05301 

3016 


OCA 


ACS 

05302 

7430 


s'.;. 



05303 

2017 


X3Z 


AC2 

05304 

7410 


3KP 



05305 

2020 


xsz 


ACI 

05306 

1020 


TAO 


ACI 

05307 

1347 


TAO 


05400 

05310 

7640 


8ZA 

CLA 


05311 

5600 


JMP 

Z 

FXXITUP 

05312 

1155 


TAO 


0200 

05313 

3020 


OCA 


ACI 

05314 

3017 


OCA 


AC2 

05315 

3016 


OCA 


ACS 

05316 

2043 


xsz 


OECEXP 

05317 

7000 


NOP 



05320 

5600 


JMP 

X 

FXXITUP 

05321 

0000 

MPY, 

0 



05322 

4550 


JM8 

X 

PALI 

05323 

1020 


TAO 


ACI 

05324 

3023 


OCA 


0P1 

05325 

1017 


TAO 


AC2 

05326 

3022 


OCA 


0P2 

05327 

1016 


TAO 


ACS 

05330 

3021 


OCA 


OPS 

05331 

4550 


JMI 

X 

PALI 

05332 

4550 


JMS 

X 

PALI 

05333 

4557 


JMS 

X 

POAOO 

05334 

5721 


JMP 

X 

MPY 

05335 

0000 

NUMBUF, 

01 0?0f 0f 0f 0f 0 

05336 

0000 





05337 

0000 





05340 

0000 





05341 

0000 





05342 

0000 





05343 

0000 





05344 

2062 

02062# 

2062 




PAL8-V7 



5IC.L8E 


05345 7610 O7fei0, 7610 

05306 7773 07773, 7773 

05347 5400 05400, 5400 


05350 

0000 

RNOJHP, 

FEXXT 


05351 

4546 


JMS I 

P ANORM 

05352 

5753 


JMP X 

RND 

05353 

0000 

RNO, 

0 


05354 

4435 


RENTER 


05355 

3227 


FLDpFWDpFRNOX-. 

05356 

0000 


FEXIT 


05357 

1021 


TAD 

0R3 

05360 

7006 


RTl 


05361 

7006 


RTL 


05362 

7006 


R* 1. 


05363 

3020 


D-A 

AC1 

> 05364 

1020 


TAD 

AC1 

05365 

7010 


RAR 


j 05366 

0054 


AND 

07740 

1 05367 

3017 


DCA 

AC2 

05370 

3016 


DC A 

ACS 

05371 

4557 


JMS X 

POAOD 

05372 

4557 


JMS X 

POADO 

05373 

4557 


JHS X 

POADO 

05374 

1030 


TAD 

ORE 

05375 

3025 


DCA 

ACE 

0S376 

1020 


TAD 

AC1 

05377 

0072 


AND 

07 

05400 

3020 


OCA 

AC1 

05401 

4435 


FENTER 


05402 

2202 


F8TpFWD*FRNDX»« 

05403 

1633 


FJMPpBKWDp.-RNDJMP 

05404 

2004 

FRNDX , 

2004 7 4 1 73 M 23 1 

05405 

4173 




05406 

1211 





05407 

0000 

F8QRX, 

07010 

05410 

0000 



05«U 

0000 



05412 

0000 

SQR , 

0 

05413 

4435 


FENTER 

05414 

2073 


PET OPERAND 

05415 

0040 


F8NE 

05416 

1232 


FJMP*FWD*8QIXXT 




/ 


IC.lSE 


PAL8-V7 


25*17 

3800 


FEXIT 


25*2® 

1 82* 


TAD 

ACS 

25*21 

7710 


SPA CLA 


25 *22 

5**7 


JMP I 

PARGERR 

25*25 

1025 


TAO 

ACE 

25*2* 

1252 


TAD 

007600 

25*25 

7100 


CLL 


05*26 

7510 


SPA 


05*27 

7020 


CML 


05*3® 

7010 


RAR 


25*31 

1155 


TAO 

0200 

05*32 

3025 


DCA 

ACE 

35*33 

1055 


TAD 

07770 

35*3* 

3013 


DCA 

INDEX 1 

05*35 

4*35 

SQLOOP, 

RENTER 


25*36 

2627 


FST*BKW0+,*FSQRX 

35*37 

3073 


FLO 

OPERAND 

25*4® 

7631 


FDV*BKWD+,*FSQRX 

05**1 

*632 


FAD*BKWD*.-FSQRX 

05**2 

0000 


FEXXT 


05**3 

7240 


Cl CMA 


05**4 

1025 


T <0 

ACE 

05*45 

3025 


DCA 

ACE 

054*6 

2013 


Z8Z 

INDEX 1 

85447 

5235 


JMP 

SQLOOP 

05450 

0000 

SQEXXT, 

FEXXT 


05451 

5612 


JMP X 

SQR 

05452 

7600 

007600, 

7600 


05453 

0000 

FN, 

0 


05454 

1049 


TAO 

LOCCTR 

05455 

4504 


JMS X 

PPUSH 

05456 

1050 


TAO 

WORD 

05457 

*504 


JMS X 

PPUSH 

05460 

6201 


CDF 

0 

05461 

1745 


TAO X 

PUSERPN 

05462 

6211 


CDF 

10 

05463 

7001 


X AC 


05*64 

30*9 


DCA 

LOCCTR 

05465 

4967 


GET+X8XT /*DEF* 

05466 

1761 


1761 


05467 

5746 


JMP I 

PFNERR /NO 

85470 

*177 


JMS 

GETWD /SKIP *FN # 

05471 

*177 


JMS 

GETWD /SKIP LETTER 

05*72 

*177 


JMS 

GETWD /SKIP •{• 

05*73 

4567 


GET+XSXT /A VARIABLE 

05*7* 

7000 


7000 


05*75 

57*6 


JMP X 

PFNERR /NO 

05*76 

2050 


xsz 

WORD 

05*77 

1450 


TAO I 

WORO 

05500 

3013 


DCA 

INDEX 1 

05501 

1*13 


TAD X 

XN0EX1 

35502 

*504 


JMS X 

PPUSH 

05503 

1*13 


TAO I 

INDEX 1 

0550* 

*504 


JMS X 

PPUSH 

05505 

1*13 


TAO I 

XN0EX1 



/•*••••• S K INSERT 

A k INSERT, 



PAL8-VT 




25506 4524 

25507 1213 

25512 4524 

25511 7344 

05512 1213 

05513 3013 

05514 4435 

05515 2413 

05516 0000 

05517 4177 

05520 4177 

05521 4501 

05522 4505 

05523 3050 

05524 4505 

05525 3450 

05526 7240 

05527 1050 

05530 3050 

05531 4505 

25532 3450 

05533 7240 

05534 1050 

05535 3050 

05536 4505 

05537 3450 

05540 4505 

05541 3050 

05542 4505 

05543 3045 

05544 5653 

05545 1620 PUSERPN 


05546 0352 PFnERR, 


JMS I PPU3H 

TAD INDEX 1 

JMS I PPU3H 

CIA CLL CMA RAL 

TAO INOEX1 

DCA INDEX 1 

RENTER 

FSTI INDEX1 

FEXIT 

JMS GETWD /SKIP 

JMS GETWD /SKIP 

JMS I PEVAL 

JMS I PROP 

OCA WORD 

JMS I PROP 

DCA I WORD 

CIA CMA 

TAD WORD 

DCA WORD 

JMS I PROP 

DC ' I WORD 

CLA CMA 

TAO WORO 

OCA WORO 

JMS X PROP 

OCA X WORD 

JMS X PPOP 

OCA WORD 

JMS X PPOP 

OCA LOCCTR 

JMP X RN 

U3ERRN 


RNERR 


05547 

0000 TAB, 

0 



05550 

4506 

JMS 

I 

PPIX 

05551 

6201 

COP 


0 

05552 

7201 

CLA 

I AC 


05553 

3771 

OCA 

I 

PTABFLG 

05554 

1024 

TAD 


AC8 

05555 

7650 

SNA 

CLA 


05556 

1016 

TAO 


AC3 

05557 

0071 

AND 


0377 

05560 

3770 

OCA 

I 

PTABOES 

05561 

4772 

JMS 

I 

TBEGFIX 





/FUNCTION "TAB" IN PRINT STATEMENT, 

/FIX THE RAC NOW, 

/SET OATA FIELD TO FIELD ZERO, 

/SET FLAG TO INDICATE WE'VE DONE THIS FUNCTION, 
/AND STORE AWAY , 

/GET SIGN OF FAC 

/WAS IT A POSITIVE NUMBER? 

/YEP, PICK UP DESIRED POSITION, 

/MAXIMUM OF 256 COLUMNS, 

/SAVE AWAY FOR ACTUAL SPACER TO USE, 

/PREPARE TO RETURN PRESENT COLUMN NUMBER, 



PAL8-V7 



IC.L8E 


05562 

7201 

CLA I AC 


05563 

1126 

TAO 

COLUMN 

0556a 

3016 

OCA 

ACS 

05565 

6211 

CDF 

10 

05566 

a5a6 

JMS I 

PANORM 

05567 

57*7 

JMP I 

TAB 

05570 

6367 

PTABDE5# TAB0E3 


05571 

2345 

ptabflg.tabplg 


05572 

3762 

TBEGFIX , 8EGFIX 



05573 

7201 

RUBO# CL A 

I AC 


05574 

3135 

NORUBOi DC' 


RBSWCH 

05575 

5776 

Jf.P 

I 

.♦1 

05576 

7175 

DEVCOM 



5600 PAGE 


05600 

0000 TAN# 

0 

05601 

4435 

RENTER 

05602 

2275 

FSTpFWOpFTANTI. 

05603 

0000 

FEXIT 

05604 

4216 

JMS COS 

05605 

4435 

RENTER 

05606 

2274 

RSTTRW0+FTANT2- 

0560T 

3270 

RLOPRWD+RTANTt. 

05610 

0000 

FEXIT 

05611 

4224 

JMS SIN 

05612 

4435 

RENTER 




/increment to account for differences. 

/ANO STORE AWAY, 

/RESET DATA PIELO NOW , 

/NORMALIZE AC NOW. 

/AND RETURN NOW. 


/POINTER TO OESIREO LOCATION OP PRINT HEAD. 
/POINTER TO TAB IN PRINT FLAG, 

/POINTER TO MINI-FIX. SET-UP ROUTINE, 


/SET RUBOUT SWITCH, 

/AND CLEAN IT UP, 
/CLEAN-UP POINTER, 



PAL8-V7 



IC.L8E 


05M3 

7267 


05614 

2000 


05615 

5*00 


05616 

2000 

COS, 

05617 

4435 


05620 

4312 


05621 

0000 


0 5622 

4224 


05623 

5616 


05624 

0000 

SXN, 

05625 

o«35 


05626 

7265 


05627 

2256 


05630 

0000 


05631 

3024 


05632 

4676 


05633 

7330 


05634 

0305 


05635 

3024 


05636 

4435 


05637 

5246 


05640 

6275 


05641 

2244 

FSXN10, 

05642 

0000 


05643 

3024 


05644 

4435 


05645 

5151 


05646 

0140 


05647 

1210 


05650 

3235 


0565X 

0000 


05652 

4675 


05653 

2025 


05654 

4435 


05655 

5230 


05656 

1615 


05657 

3226 

F8XN0K t 

05660 

6225 


05661 

2227 


05662 

6234 


05663 

4236 


05664 

6224 


05665 

4237 


05666 

6222 


05667 

4240 


05670 

6220 


05671 

4241 


05672 

6213 


05673 

0000 


05674 

5624 


05675 

0726 

PS8N, 

05676 

6434 

PINT* 

05677 

0000 

FT ANTI i 

05700 

0000 


05701 

0000 



FDVoFwD*FTANT2», 

FEXIT 

JMP I T*N 
0 

FENTER 

FAD*FW0*F3INC7«. 

FEXXT 

JM$ SIN 

JMR 1 cos 

0 

FENTER 

FDVoFWDoFSlNCl*. 

FSToFWDoFSXNZ-. 

FEXXT 

OCA ACS 

JMS I PINT 

CLA CLL CHL RAR 
AND FSXNZ 

OCA ACS 

FENTER 

F3**FWDoF3XNZ-, 

F^ PPFWD*PSXNMfl-. 

FSTpFWDpFSXNZ*. 

FEXXT 

OCA ACS 

FENTER 
FSB ONE 

FSGT 

PjMPoFWDoFSXNOK-, 

FLOPFNO+FSXNZ-. 

FEXXT 

JH$ X P8GN 
XSZ ACE 

FENTER 

F3B*FWD*FSXNZ-, 

FJMP*BKWD*.»F3XN10 

FID+FWD^FSXNZ., 

FHP*FWD*FSXNZ», 

PSTpFWD*F8XNZZ«, 

FNPpFWDpFSXNCS*. 

FAD*FWDpFSINC4-, 

FMP*FWD*FSXNZZ», 

FAD*FWD*F8INC5». 

FMPpFWD+FSINZZ-, 

FAD*FWD*FSXNC6« a 

FMPoFWD«-F8INZZ« t 

FAD*FWDoPSXNC7-. 

FMPPFWDPFSINZ-, 

FEXXT 

JMP X SIN 

SGN 

XNT 

0X010 




25TB2 

2200 

FTANT2, 

01010 

257el 

2000 



?57?a 

0000 



? 5 7 i? 5 

0020 

FSINZ, 

01010 

05706 

0000 



05707 

2000 



05710 

0000 

FSINZZ, 

01010 

0571 1 

0000 



05712 

0000 



05713 

2036 

FS1NC1, 

20361220717325 

05714 

2207 



05715 

7325 



05716 

1644 

FSINC3, 

16441755316722 

05717 

7553 



05720 

6722 



05721 

5714 

FS1NC4, 

57141622311432 

05722 

6223 



05723 

1432 



05724 

1755 

FSINC5, 

17551063211276 

05725 

0632 



05726 

1276 



05727 

6005 

FSINC6, 

6<>0S! 125617406 

05730 

1256 



05731 

7406 



05732 

2016 

FSXNC7, 

20161220717325 

05733 

2207 



0573* 

7325 



05735 

6034 

FSXNM4, 

60341000010000 

05736 

0000 



05737 

0000 



05740 

4435 

UPARRX t 

FENTEP 

05741 

2634 


FST*6KM0*«»P8ZNZ 

05742 

0100 


PS6E 

05743 

1221 


FJMP*PMO*EXPLONG- 

05744 

0000 


PEXIT 

05745 

4676 


JMS I PINT 

05740 

4435 


PENTEP 

05747 

5642 


FSB*BKWO*,»FSXNZ 

05750 

0050 


P8EQ 

05751 

1213 


PJMP4PWO*EXPUONG» 

05752 

3645 


FLO*BKWD4,»F8XNZ 

05753 

5207 


F8BtFWD6FUPRCi», 

05754 

0150 


F8LE 

05755 

1207 


FJMP#FWO*EXPLONG« 

05756 

3651 


FLD4BKW04.-F8XNZ 

05757 

0000 


FEXIT 

05760 

5761 


JMP X «♦! 

05761 

6457 


UPARROW 

05762 

2077 

FUPRCt, 

207717700 

05763 

7700 



05764 

3073 

EXPLONG 

, FLO OPERAND 

05765 

0000 


FEXIT 

05766 

4775 


JMS X FLOG 

05767 

4435 


FENTER 

05770 

6663 


FMP4BKW04.-FSXNZ 



asm 

0000 


FEXIT 


35772 

0776 


JM$ I 

P EXP 

05775 

5770 


JMP I 

.♦1 

25770 

1203 


OPOONE 


05775 

6U0 

PLOG, 

LOG 


05776 

6000 

PEXP, 

EXP 




6000 


PAGE 

06000 

0000 

EXP# 

0 

06001 

4035 


PENTER 

06002 

7270 


FDV+FWD+FEXPC1-, 

06003 

2261 


FM>PWD*FEXPU-, 

06000 

0000 


P.XIT 

06005 

4660 


JM8 X PRINT 

06006 

7330 


CLA CLL CML RAR 

06007 

1020 


TAO ACS 

06010 

3020 


OCA ACS 

06011 

0033 


renter 

06012 

2207 


PST*PWD*PEXPX«, 

06013 

0251 


PAD+PWD*PEXPU«, 

06010 

2253 


FST*PWD*FEXPP«, 

06013 

6252 


PMP^PNO^PEXPP-, 

06016 

0257 


PAD*PWD*PEXPC2» t 

06017 

2205 


P8T+PW0*PEXPU«, 

06020 

3201 


PLD*PWD*PEXPX», 

06021 

0000 


PEXIT 

06022 

0506 


JHS X PPXX 

06023 

7000 

PXXPPX, 

NOP / (XAC IF 1 ORG INDEXING) 

06024 

3261 


OCA PEXPI 

06025 

1024 


TAO ACS 

06026 

7160 


CMA CLL CML RAL 

06027 

1261 


TAO PEXPI 

06030 

7020 


snl 

06031 

7001 


CIA 

06032 

7001 


XAC 

06033 

3261 


OCA PEXPI 

06030 

4035 


PENTER 

06035 

3203 


PLD*PWD*PEXPC3«. 

06036 

7226 


PDV*PWD*PEXPU», 

06037 

4200 


FAOpPWDoPEXPCO-, 

06000 

5227 


P304PWD+PEXPP-, 

06001 

2223 


FST+FWDtFEXPU*. 

06002 

3225 


PLO+PWD+PEXPP*. 

06003 

6220 


FMP*FWD*FEXPF- t 

06040 

6242 


PMP+PWD+PEXPC5.. 

06045 

4217 


PAOOPWO*PEXPU», 



sic, u#e 


FA|.«-V7 


06046 

2216 

F3T*FW0*FtXPU-i 

06047 

3220 

FLD*FWD*FE XPF-, 

06250 

7214 

FOV*FWD*FEXPU-. 

06051 

4240 

FA0oFw0*FEXPC6-, 

06052 

2215 

FST*FWD+FgXPF*. 

06053 

0000 

FEXIT 

06054 

1025 

TAD ACE 

06055 

1261 

TAD FEXPI 

06056 

3025 

DC A ACE 

06057 

5600 

JMP I EXP 

06060 

6434 

PRINT, INT 

06061 

0000 

FEXPI, 01010 

06062 

0000 


06063 

0000 


06064 

0000 . 

FEXPU, 01010 

06065 

0000 


06066 

0000 


06067 

0000 

FEXPF, 01010 

06070 

0000 


06071 

0000 


06072 

2005 

FEXPCi , 2 ?35! 427 1 1 0300 

06073 

4271 


06074 

0300 


06075 

2075 

FEXPC2, 20751355217022 

06076 

3552 


06077 

7022 


06100 

6124 

FEXPC3, 61241647710715 

06101 

6477 


06102 

0715 


06103 

2044 

PEXPC4, 20441764310062 

06104 

7643 


06105 

0062 


06106 

1744 

FEXPC3, 17441337213400 

06107 

3372 


06110 

3400 


06111 

2004 

FEXPC6, 20041000010000 

06112 

0000 


06113 

0000 


06114 

0000 

LOG, 0 

06115 

1024 

TAD ACS 

06116 

7710 

SPA CLA 

06117 

5447 

JMP 1 PARGERR 

06120 

1025 

TAD ACE 

06121 

3365 

DCA LOGACE 

06122 

1155 

TAD 0200 

06123 

3025 

OCA ACE 

06124 

4435 

FENTER 

06125 

2641 

FST*BKWD+. -FEXPU 

06126 

4244 

FAD*FWD*FLOGCi-, 

06127 

2640 

FST+BKWD*. -FEXPF 

06130 

3644 

FLD*BKWD*t»FEXPU 

06131 

5241 

PS8+FW0+FL0GC1", 

06132 

7643 

FDV+BKWD*, -FEXPF 

06133 

2644 

FST+BKWD*. -FEXPF 

06134 

6645 

fmp*bkwd*,-fexpf 


*e u-3 




06135 

6216 


06136 

4220 


?6137 

6650 


?6U0 

6651 


06141 

4220 


P6 1 o2 

6653 


06143 

5632 


06144 

2655 


06 145 

3217 


06146 

5221 


06147 

4660 


06150 

6656 


06151 

0000 


06152 

5714 


06153 

2004 

FL0GC2 

06154 

6253 


06155 

2521 


06156 

2007 

FLOGC3 

06157 

5421 


06160 

3604 


06161 

2025 

FL0GC4 

06162 

6125 


06163 

1007 


06t64 

2174 

LOGPWO 

06165 

0000 

LOGACE 

06166 

0000 


06167 

2174 

LOGOKW 

06170 

0200 


06171 

0000 


06172 

2005 

FLOGCi 

06173 

5202 


06174 

3632 



FMP+Fw0^FL0GC2*, 

FAD+FwO*FLOGC3-, 

FMP+bKwO+.-FEXPP 

FMP*BKwO*.-FEXPF 

FAD+FWD*PL0GC4*. 

fmp*bk*d*.-fexpf 

FSB+BKwO^.-FEXPCb 

F3T*BKwO*.*PEXPP 

FLD*FWD*L0GPW0», 

FSBoPWD+LOGOKW-, 

FAD+BKWD+.-FEXPF 

FMP+BKW0+.-FEXPC1 

FCXIT 

JMP I LOG 
2004J625392521 


2007 ; 5421 1 3604 


2 '25f 6125 9 1007 


2174 

0 

0 

2174 J0200 J0 


20051920293632 



6200 

PAGE 


06200 

0000 ATN, 

0 


06201 

1024 

TAD 

ACS 

06202 

3272 

OCA 

FATN8X 

86203 

3024 

DCA 

ACS 

06204 

4435 

FENTER 


06205 

2271 

fst+fwd*fatnt». 

86206 

2265 

F3T*FWD*FATNAX- # 

86207 

5275 

FSB+FWD+FATNCl-, 

06210 

0140 

F3GT 


86211 

1254 

FJMP*FWD+ATNBIG» 



PAL6-V7 




sic.tae 


062 12 

5275 


06213 

0140 


06214 

1204 


06215 

3151 


06216 

7260 


06217 

2257 


06220 

3152 

ATNLOW 

06221 

2316 


06222 

3254 


06223 

5267 


06224 

0100 


06225 

1212 


06226 

3250 


06227 

4266 


06230 

2246 


06231 

3314 


06232 

7244 


06233 

4262 


06234 

2242 


06235 

3263 


06236 

2301 


06237 

3237 

ATNNOT 

06240 

6236 


06241 

2240 


06242 

3261 


06243 

6236 


06244 

4262 


06245 

6234 


06246 

4263 


06247 

6232 


04250 

4264 


06251 

6230 


06252 

4151 


06253 

6223 


06254 

4263 


06255 

2221 


06256 

3215 


06257 

5151 


06260 

0140 


06261 

1204 


06262 

3260 


06263 

5213 


06264 

2212 


06265 

3211 

ATNBXG 

06266 

0000 


06267 

1272 


06270 

3024 


06271 

5600 


06272 

0000 

FATN8X 

06273 

0000 

FATNAX 

06274 

0000 


06275 

0000 


06276 

0000 

FATNT, 

06277 

0000 


06300 

0000 



F5B+FW0+FATNC2-. 

FSGT 

FJMP*FwO*ATNLOw. 
FLO ONE 

FOV+FWD*FATNT* t 
F8T>F WD*FATNT»» 
FLO ZERO 

FST4FWO+FATNC-, 
FLD*FwD*FATNT-. 
F3B*FWD+FATNC3-, 
FSGE 

FJMP+FWD*ATNNOT«. 

flopfwd+fatnt*. 

fad*fwd*fatnc4-, 

F3T^FWD*FATNT«, 

fld*fwd*fatnc>. 

FDV+FWD+FATNT-, 

fao*fwd+fatnc«-. 

fst^fwd+fatnt-, 

FI.0PFW0+FATNC5-, 

F /1>FWD*FATNC*. 

flopfwo*fatnt». 

FMP*FWOpFATNT», 

F8T*FWD*FATNTT-. 

FL0+FWD+FATNC6-. 

FMP*FWD*FATNT>. 

FAD+FWO+FATNC7-, 

FMP*FWDPFATNTT», 

FAD*FWD*FATNC8», 

FMP+FWD4FATNTT-. 

FA0pFWD*FATNC9». 

FMP*FWD*FATNTT-. 

FAO ONE 

FMP*FWD*FATNT*. 

FADPFWDPFATNO, 

F8T*FW0*FATNT». 

FLD*FWD*FATNAX-. 

FSB ONE 

FSGT 

FJMP+FW0*ATNBXG-, 

FLO^FWOpFATNCM*. 

F3B*FWD*FATNT», 

F8T*FN0pFATNT-. 

FLD*FWD*FATNT». 

FEXIT 

TAO FATN8X 

OCA ACS 

JMP I ATN 
0 

01010 


0J010 



3*331 

0000 

FATNTT, 

01010 

?*3e2 

0000 



?*323 

0000 



efcSca 

1*3* 

FATNC1 , 

1*3*1000010000 

36335 

0000 



3630* 

0000 



0*307 

2007 

PATNC2, 

20071777610000 

0*310 

777* 



8*311 

0000 



8*3 18 

177* 

FATNC3, 

177*1223012*27 

0*3 1 3 

2230 



0*31* 

2*27 



e*3i5 

201* 

F ATNC* f 

20161733117272 

0*31* 

7331 



0*317 

7272 



0*320 

200* 

FATNC5, 

200*1140512216 

0*321 

1*05 



06322 

221* 



0*323 

175* 

F ATNC* t 

175*10**21*5*2 

0*32* 

0**2 



0*325 

45*2 



0*32* 

57*4 

FATNC7, 

5 *41*221 13*03 

0*327 

*221 



0*330 

3*03 



0*331 

17** 

FATNC8, 

17**131*11**72 

0*332 

31*1 



0*333 

**72 



0*33* 

5775 

FATNC9, 

57751252512337 

0*335 

2525 



0*33* 

2337 



0*337 

0000 

FATNC t 

01010 

0*3*0 

0000 



0*3*1 

0000 



0*342 

201* 

FATNCH, 

201*1220717325 

0*3*3 

2207 



0*3*4 

7325 



0*3*5 

*03* 

FATNCJ t 

*0341000010000 

0*3o* 

0000 



0*3*7 

0000 




2*350 

112* TABOOi 

TAD 

COLUMN 

0*351 

7041 

CX A 


0*352 

13*7 

TAD 

TABDES 

0*353 

7740 

SMA 8ZA 

CLA 

0*35* 

53*0 

JMP 

TABOK 


/GET WHERE WE ARE NOW, 

/COMPARE AGAINST WHERE WE WANT TO BE 
/DO WE HAVE TO BACK UP? 

/NOPE. 



PAL8-V7 



IC.LSE 


06355 

1007 

TAO 


0215 

06356 

4433 

JM5 

I 

PPUTCH 

*8357 

4433 

J MS 

I 

PPUTCM 

26360 

1126 TASOK, 

TAO 


COLUMN 

06361 

7040 

cma 



06362 

1367 

TAO 


TABOES 

06363 

7750 

SNA 

SPA 

CLA 

06364 

5770 

JMP 

I 

TPRINT 

06365 

1251 

TAD 


0240 

06366 

5357 

JMP 


TABOk-1 


06367 

0000 

TABOES, 

0 

06370 

2207 

TPRINT, 

PRINTC 


p 


11-7 


/YEP, GIVE C.R, 

/SEND IT 

/ALSO SEND A NULL CHARACTER TO ALL TTY TO RETURN, 
/GET WHERE WE ARE, 

/NEGATE* 1 

/WHERE 00 WE WANT TO BE? 

/? 

/HERE, EXIT, 

/FARTHER UP, 

/GIVE SPACE AND LOOP AGAIN, 


/NORHAL EXIT LOCATION, 



PA Lfi-V? 


PWE 12 


r S I C . L 8 £ 


6400 PAGE 


06400 

0000 

CHKFIT, 0 




06401 

1160 

TAO 

04 



06402 

4544 

JMS I 

SPLEFT 



06403 

5600 

JMP I 

CHKFIT 



06404 

4561 

JMS I 

PLXNFIX 



06405 

4537 

JMS X 

PRESET 

/RESET 

ALL I/O OEVICES 

06406 

4514 

JMS I 

PPRXNTXT 



06407 

3562 

IK M 




06410 

3064 

D>A 

SMUHFUC 

/RESET 

THIS FLAG NOW 

06411 

5612 

JMP X 

.♦1 



06412 

2610 

NEWLXN 


/THIS 

MAY BE RIGHT, 


06413 

0000 

rmleft, 

0 



06414 

7100 


CLL 



06415 

1003 


TAO 


ARRLOC 

06416 

7430 


szl 



06417 

5223 


JMP 


NORLFT 

06420 

7041 


CIA 



06421 

1004 


TAO 


CODELOC 

06422 

7620 


SNL 

CIA 


06423 

2213 

NORLFT, 

I8Z 


RMLEFT 

06424 

5613 


JMP 

I 

RMLEFT 


06425 0000 

06426 3024 

06427 5625 


ASS, 0 

OCA 

JMP 


ACS 

ABS 



06«J0 

2200 

•TIC*IT,0 


06631 

3603 

OCA I 

ARRUOC 

06632 

2203 

I3Z 

ARRLOC 

26633 

3630 

JMP I 

STICKIT 


26634 

0000 INT , 

0 


06635 

4506 

JMS I 

PFIX 

06636 

7200 

CLA 


06637 

4546 

JMS I 

panorm 

06460 

5634 

JMP I 

INT 


06441 

0000 

SXERR > 

0 

06442 

7200 


C.A 

06443 

3241 


OCA SXERR 

06444 

4477 


JMS I PERROR 

06445 

2331 


TEXT 'SYNTAX' 

06446 

1624 



06447 

0130 



06450 

0000 



06451 

4001 

ATLINE, 

TEXT ' AT LINE 

06452 

2440 



06453 

Mil 



06454 

1605 



06455 

4000 




/INCASE THIS IS JMS'D TO 
/AND REMAKE INTO AN "AND 


06456 

7570 

07570, 

7570 


06457 

1024 

UPARRON 

, TAD 

ACS 

06460 

7700 


SMA CLA 


06461 

1256 


TAD 

07570 

06462 

1025 


TAD 

ACE 

06463 

7700 


SMA CLA 


06464 

5447 


JMP I 

PAR6ERR 

06465 

4506 


JMS I 

PFIX 

06466 

5667 


JMP I 

. + 1 

06467 

4365 


UPARR2 




ft^IC 

,w«e 



PAL6-V7 

4ft 12-2 

• 


4570 

MOREOIM 

t MU3TBE 

/', # 



1 

3763 


3763 




26«72 

7260 

DIM, 

CLA CHA 




£6673 

3034 


DCA 

OIMEUAC 



26476 

6501 


JMS I 

peval 



26675 

4566 


I SIT 

/CCR) OR 'S' 



26676 

2000 


2000 




26477 

5270 


JMP 

MOREDIM 



26500 

5503 


JMP I 

PEXECUTE/YE3 




065ei 

6004 DELETED, TEXT * DELETED./ 

06502 

0514 

06503 

0524 

06504 

0504 

e65e5 

3700 


06506 

1050 

AMATCH, TAO 

WORD 

06507 

3064 

OCA 

SNUMFLG 

06510 

1064 

TAD 

SNUMFLG 

06511 

3457 

OCA 1 

FPTR 

06512 

2057 

zsz 

FPTR 

06513 

1060 

TAD 

GPTR 

06514 

3056 

OCA 

EPTR 

06515 

4566 

I3IT 

/•REM* 

06516 

1762 

1762 


86517 

5516 

JMP I 

P3L00P 

06520 

5721 

JMP I 

.♦1 

06521 

3043 

REMPACK 



06522 

3723 

break, 

372312417^2056 

06523 

2417 



06524 

2056 



06525 

3722 

READY, 

TEXT '^REAOY,^* 

06526 

0501 



06527 

0631 



06530 

5637 



06531 

3700 





/Wic.iec 


P*L«-V7 


P 


12-3 


6531 CRLF ■ • • 1 


06532 

0000 

XSDXG, 

0 


06533 

4500 


JMS I 

PNONBWNK 

06534 

1344 


TAD 

O7706A 

06535 

7100 


CLL 


06536 

1065 


TAD 

012 

06537 

7420 


SNL 


06540 

7200 


CLA 


06541 

7430 


SZl 


06542 

2332 


Ifl 

XSDXG 

06543 

5732 


JNP X 

XSDXG 

06544 

7706 

O7706A, 

7706 



06545 

1042 

PZERDON 

i TAD 


PRTEMP 

06546 

1043 


TAD 


DECEXP 

06547 

7710 


SPA 

CLA 


06550 

5354 


JMP 


.♦4 

06551 

1043 


TAD 


DECEXP 

06552 

7040 


DMA 



06553 

3042 


DCA 


PRTEMP 

06554 

1044 


TAD 


PNUM8UP 

06555 

3025 


DCA 


ACE 

06556 

7344 


CLA 

CLL 

CMA RAL 

06557 

7040 

DXGLUP, 

CMA 



06560 

1043 


TAD 


DECEXP 

06561 

7440 


SZA 



06562 

5365 


JMP 


.♦3 

06563 

1375 


TAD 


0256B 

06564 

4433 


JMS 

X 

PPUTCH 

06565 

3043 


OCA 


DECEXP 

06566 

1425 


TAD 

X 

ACE 

06567 

4433 


JMS 

I 

PPUTCH 

06570 

2025 


xsz 


ACE 

06571 

2042 


I8Z 


PRTEMP 

06572 

5357 


JMP 


DXGLUP 

06573 

5774 


JMP 

X 

.♦1 

06574 

5123 


PMTENP 


06575 

0256 

0256B , 

256 




S K INSERT RETURN, 



XC.L8E 


P*t8»V7 


6600 PAGE 


6661 l,8F«606t 

6662 LCP«6662 

6666 US«6666 


06600 

3334 INTER* 

DCA 

INTAC 

06601 

7010 

RAR 


06602 

3335 

OCA 

INTI 

06603 

6234 

RIB 


06604 

0374 

AND 

070 

06605 

1373 

TAD 

06202 

06606 

3371 

DCA 

INTCIF 

06607 

6234 

RIS 


06610 

0072 

AND 

07 

06611 

7106 

CLL RTL 



PM 12-6 


/SAVE ALL IMPORTANT STUFF ON INTERUPT, 


/SAVE INSTRUCTION FIELD 


/SHIFT IT OVER 



>IC.l8E 


PAL8*V7 


1 2»5 


26612 

7004 


RAL 



26613 

1215 


TAO 

0620 1 A 

/ANO the INSTUCTXON fxelo 

36614 

3370 


OCA 

INTCDF 


26615 

6201 

0620 1 4 f 

CDF 

0 

/just in case. 




IFZERO 

MACHINE* 


06616 

7000 


NOP 

> 

/TO KEEP PAGE SAME SIZE, 




1PNZR0 

MACHINE* 





JM3 I 

SPECINT 

> 

/CHECK FOR SPECIAL INTERUPT DEVICE 

06617 

6041 


TSF 


/IS IT THE TELEPRINTER, 

06620 

S223 


JMP 

.♦3 

/NO 

06621 

6042 


TCP 



06622 

5310 


JMP 

XNQDUN 

/VEP, CLEAN IT UP, 

06623 

6661 


LSF 


/PRINTER? 

06624 

5227 


JMP 

.♦3 


06625 

6662 


LCF 


/YEP, 

06626 

5310 


J^» 

XNODUN 


06627 

6021 


P?,F 


/PUNCH? 

06630 

5233 


JMP 

.♦3 


06631 

6022 


PCF 



06632 

5310 


JMP 

XNODUN 


06633 

6011 


RSF 


/READER? 

06634 

5241 


JMP 

XNOPPP 

/NOPE, 

0663S 

7330 


CLA CLL 

CML RAR 

/4000 TO AC 

06636 

6012 


RRB 


/READ IN THE CHARACTER, 

06637 

3740 


OCA X 

PMRCHAR 


06640 

3344 


JMP 

INTEXT 

/EXIT FROM THE INTERUPT, 

06641 

6663 

XNOPPP, 

6663 


/LINE PRINTER ERROR? 

06642 

5245 


JMP 

INOTTT 

/NOPE, 

06643 

6667 


6667 


/YEP, INGORE THE LINE PRINTER NOW, 

06644 

5344 


JMP 

INTEXT 

/AND EXIT, 

06645 

6031 

INOTTT , 

KSF 


/IS IT THE KEYBOARD, 

06646 

7402 


NIT 


/NOPE, A BADDY. WE'RE F — KED, 

06647 

6036 


KR0 


/READ IN THE CHARACTER, 

06650 

0027 


AND 

0177 

/CHOP OFF THE CRAP, 

06651 

3336 


OCA 

INTEMP 

/SAVE IN THE INTERUPT TEMPORARY, 

06652 

1336 


TAO 

INTEMP 

/RECALL IT NOW, BUBBY, 

06653 

1376 


TAD 

077T5 

/IS IT A *C 

06654 

7450 


SNA 


/? 

06655 

5265 


JMP 

FCNTLC 

/YESI 

06656 

1577 


TAD 

077640 

/• 0? 

06657 

7650 


SNA CLA 



06660 

5303 


JMP 

FCNTLO 


06661 

7330 


CLA CLL 

CML RAR 


06662 

1336 


TAO 

INTEMP 

/SET MXGH OROER BIT ON FOR SAFETY, 

06663 

3741 


OCA X 

PINCHAR 

/FUT IT AWAY 

06664 

5344 


JMP 

INTEXT 

/AND EXIT FROM INTERUPT, 

06665 

1134 

FCNTLC, 

TAO 

NOXNT 

/CHICK IF OK TO INTERUPT, 



PAL8-V7 


pWZ 12-6 



,L«E 




?6 666 

76fl0 


SZA 

CL 

J6667 

5300 


JMP 


?b670 

6002 

CNTLCR, 

IOF 


0667 1 

45«2 


JM5 

I 

06672 

4537 


JMS 

I 

06673 

4514 


JMS 

I 

06674 

6522 


BREAK 

06675 

1125 


tad 


06676 

3036 


DCA 


06677 

5520 


JMP 

I 

06700 

7040 

CNTLCF, 

cma 


06701 

3134 


DCA 


06702 

5344 


JMP 


06703 

4542 

FCNTLO, 

JMS 

I 

0670a 

1133 


tad 


06705 

7040 


cma 


06706 

3133 


DCA 


06707 

5344 


JMP 


06710 

3742 

JNQDUN, 

O'. A 

I 

06711 

4743 


JMS 

I 

06712 

5344 


JMP 



06713 

0000 

BXDLE, 

0 

06714 

6002 


IOF 

06715 

7201 


CLA IAC 

06716 

3337 


DCA 

06717 

6214 


ROF 

06720 

1215 


TAD 

06721 

3362 


DCA 

06722 

1331 


TAD 

06723 

7104 


CLL RAL 

06724 

1332 


TAD 

06725 

6211 

XOLECD, 

CDF 

06726 

6202 

XDLECX, 

CZF 

06727 

6001 


ION 

06730 

5733 


JMP X 

06731 

0000 

IDLELK, 

0 

06732 

0000 

IDLEAC, 

0 

06733 

7415 

IDLIPC, 

NULJOB 

06734 

0000 

INTAC, 

0 

06735 

0000 

INTL, 

0 

06736 

0000 

INTEMP, 

0 

06737 

0000 

BUSY, 

0 

06740 

7256 

phrchar 

, HRCHAR 

06741 

7255 

PINCHAR 

, INCHAR 


CNTLCF 

OELOUT 

PRESET 

PPRXNTXT 

PPDLIST 

POL 

PEDIT 


NOINT 

INTEXT 

OELOUT 

CNTLO 

CNTLO 

INTEXT 

POFLAG 

POUTIT 

INTEXT 


BUSY 

06201 A 

INTECOP 

IDLELK 

IDLEAC 

to 

0 

idlepc 


/NOT OX, 

/TURN OFF INTERUPTS TO BE SURE, 

/DELETE OUTPUT BUFFERS, 

/RESET ALL I/O 0EVICE8, 

/GIVE THE STOP MESSAGE 

/X DON'T LIKE ’’THOSE PEOPLE" LOOKING OVER MY SHOULDER WHILE I TYPE, 
/RESET PUSH DOWN POINTER 

/AND RESTART CISAB 

/RESET "C FOUNO SWITCH, 


/DELETE THE OUTPUT NOW, BABY, 
/NEGATE CNTLO SWITCH, 


/RESET OUTPUT FLAG, 

/PREFORM THE NEXT OPERATION, 


/THE IDLE ROUTINE 


/RESET THE IDLE TASK FLAG, 

/SAVE THE OATA FIELD NOW, 

/AND PLACE IN WHERE TO GO ON IOLE EXIT, 
/RESTORE THE IDLE ROUTINES PARAMETERS, 


/AND 00 THE IOLE STUFF 



/0IC.LSC 



R*L8»V7 

P& 12*7 

• 

00742 7100 

007*3 7063 

poflag, 

POUTXT, 

OFl*G 

OUTIT 





ZfcTaa 

087a5 

1337 

7050 

INTExT, tad 

SNA CLA 

busy 

/GET STATUS, 

007«0 

5305 

JMP 

INTOU 

/WE WERE NOT XDLE, EXIT NOW, 

08747 

3337 

OCA 

BUSY 

/RESET BUSY FLAG, 

06750 

1000 

TAD 

0 


00751 

3333 

DCA 

XDLEPC 


00752 

1334 

TAD 

INTAC 

/SAVE SH-T, 

00753 

3332 

OCA 

IDLE AC 


00754 

1335 

TAD 

INTI 


00755 

3331 

DCA 

XDLELK 


00750 

1371 

TAD 

INTCXF 




• 

.18£ 



PAL0-V7 

PA^^13 

36757 

3326 

DC A 


IOLECIF 


36760 

1370 

TAD 


INTCOF 


36761 

3325 

DCA 


IOLCCOF 


<3b7b2 

7002 

InTECO, hlt 



/IDLE ROUTINES CALLING CDF, 

06763 

6001 

ION 




0676U 

5713 

JMP 

I 

BIOLE 

/AND GO BACK NOW , 

06765 

1333 

INTOU, TAO 


INTI 


06766 

7100 

CLL 

RAL 



36767 

133a 

TAD 


INTAC 


36770 

7 002 

INTCDF , HLT 




06771 

7002 

INTCIF, HLT 




36772 

6001 

ION 




06775 

5000 

JMP 

I 

0 



06770 

0070 

070, 

70 

06775 

6202 

06202, 

6232 

06776 

7773 

07775# 

7775 

06777 

7760 

07760D, 

7764 



7000 

PAGE 



07000 

0000 PUTER# 

0 


/THE CHARACTER PUTTER. 

37001 

3241 

OCA 

OPUTC 

/SAVE THE CHARACTER NO 




.in 




PAL8-V7 

pagAs-i 

37232 

621® 


PDF 



/READ THE DATA FIELD NO*. 

27303 

1225 


TAO 


062010 

/CREATE PROPER CDF INSTRUCTION, 

2*2 3« 

3237 


OCA 


PUTCOF 

/SAVE COF INSTRUCTION, 

??235 

6221 

062018, 

CDF 


0 

/RESET COF TO THIS DATA FIELD, 

2723b 

7 ® 1 0 


SKP 




27227 

« 7bl 

PUTIP, 

J MS 

X 

PSXDLt 

/CALL IN THE IDLE ROUTINE NOW, 

27210 

12®2 


TAD 


OCOUNT 

/GET NUMBER OF CHARACTERS IN THE BUFFER, 

2721 1 

7450 


SNA 




27012 

5223 


JMP 


PUTCIN 

/PUT IT IN NOW, BABY. 

27013 

1315 


TAD 


OCMLIM 

/TEST FOR TOO MANY IN BUFFER, 

2721® 

7650 


SNA 

CLA 



27215 

5207 


JMP 


PUTLP 

/YEP. WAIT AWHILE, 

2721b 

1131 


TAD 


OUTDEV 


27217 

7 0® 1 


CX A 




07220 

1132 


TAD 


OOEV 

/CHECK FOR A MATCH, 

27021 

76®0 


SZA 

CLA 



27222 

5207 


JMP 


PUTLP 

/NOPE, WAIT FOR BUFFER TO BECOME EMTPY, 

27023 

6002 

PUTCIN, 

IOF 



/TURN THEM OFF, BABY, 

2702® 

1133 


TAD 


CNTLO 

/CHECK FOR CONTROL "0" ACTIVE, 

07025 

7650 


SNA 

CLA 



0702b 

1131 


TAO 


OUTDEV 

/MOVE OVER OUTPUT DEVICE, 

07027 

3132 


DCA 


ODEV 


07010 

2242 


X8Z 


OCOUNT 


07031 

1241 


TAD 


OPUTC 

/STICK A CHARACTER IN THE BUFFER. 

07032 

3634 


DCA 

X 

XPOXNT 


07033 

4301 


JMS 


OBOP 

/BOP UP THE POINTER NOW. 

07034 

1165 

IPOXNT, 

OBLOW 



07035 

4243 


JM8 


OUTIT 

/SEND IT OUT 

S7B36 

6001 


ION 



/RESTORE XNTERUPTS, 

07037 

7402 

PUTCDF , 

WLT 



/USER'S CORRECT COF 

07040 

5600 


JMP 

X 

PUTEP 


07041 

0000 

OPUTC, 

0 




07042 

0000 

OCOUNT, 

0 




07043 

0000 

OUTIT, 

0 




07044 

1300 


TAD 


0FLA6 


07045 

7640 


SZA 

CLA 



07046 

5643 


JMP 

I 

OUTIT 

/flag still up, EXIT, 

07047 

1242 


TAD 


OCOUNT 


27050 

7450 


SNA 




07051 

5643 


JMP 

X 

OUTIT 

/NO CHARS TO GO. SO WE WILL. 

07052 

1314 

- 

TAO 


0T777 

/PLEASE IGNORE THE COMMENTS OF A DERANGED MIND 

07053 

3242 


DCA 


OCOUNT 


27054 

1132 


TAD 


OOIV 


07055 

1273 


TAD 


OPOTAB 

/MAP DEVICE INTO TABEL TOO ET WHAT TO DO. 

07056 

3300 


DCA 


0FLA6 

/ANO ALSO RESET FLAG AT THE SAME TIME, 

07057 

1700 


TAD 

X 

OFLAB 

/GET THE MAGIC INSTUCTION. 

27060 

3262 


DCA 


.♦8 

/ANO PLACE IT HERE, 

07261 

1665 


TAD 

I 

OPOINT 

/GET THE CHARACTER, 

27262 

7402 


HUT 



/AND HALT. 

07063 

7200 


CLA 



/AFTER PRINTING THE CHARACTER, 



PAL8-V7 



in 



A 32 t 

JMS 


OBOP 

27Zb5 

1165 

OPOINT, oblon 


???66 

56a3 

JMP 

I 

OUTIT 

?T2fc7 

7220 

CPNUL# CLA 



27070 

3320 

DC A 


oflag 

trzn 

4542 

JMS 

I 

OELOUT 

27*72 

5643 

JMP 

I 

OUTIT 

27073 

7074 

OPOTAB, ,M 



2727 a 

5267 

JMP 


OPNUL 

27275 

6046 

TLS 



mn 

6026 

PLS 



27277 

6666 

LLS 




07120 

0000 

oflag, 

0 


07121 

0000 

OBOP, 

0 


07102 

1701 


TAD X 

OBOP 

97103 

1312 


TAD 

0TST1 

07104 

7450 


SNA 


07105 

1315 


TA0 

OFLOW 

07106 

1313 


TAD 

OCOR 

07107 

3701 


DCA I 

OBOP 

07110 

2301 


ISZ 

OBOP 

07111 

5701 


JMP X 

OBOP 

07112 

6601 

0T8T1, 

•0BHXGH 


07113 

1200 

OCOR, 

OBHXGMM 

07114 

7777 

07777, 

7777 


07115 

7765 

OFLOW, 

•OBHXGH* 

•1+OBLOW 


7115 

ocmlim«oflow 


07116 

0000 

RESET!, 

0 


07117 

7201 


CLA X AC 


0712e 

3131 


DCA 

OUTOEV 

27121 

7201 


CLA X AC 


07122 

3130 


DCA 

0UTD2 

07123 

7201 


CLA X AC 


07124 

3127 


DCA 

INDEV 

07125 

3133 


DCA 

CNTLO 

07126 

3134 


OCA 

NOINT 

27127 

6201 


CDF 

0 

07130 

3756 


OCA X 

QHRCHAR 

07131 

3762 


DCA X 

SXNCHAR 

27132 

3757 


DCA X 

PBUSY 

2T133 

3760 


DCA I 

PPXRA 



/wE SMALL INCREMENT THE POINTER. 

/AND EXIT, 

/RESET OFLAG 

/SO OEVICES INACTIVE. 

/delete any stray characters in the buffer. 

/ANO RETURN NON. 


/NUt OEVXCE (NO ECHOING) 


/CLEAR NO-INTERUPT flag, 
/RESET OATA FIELD TO HERE, 
/CLEAR all input FLAGS, 


/AND ALSO THE BUSY FLAG, 
/RESET NULL AFTER C,R, FLAG 



PA18-V7 


PAG89F3-3 





IFNZRO 

M AC H I Nfe < 





C IF LOF 

10 

/PREPARE TO RESET 

CLOCK. 



J M S I 

LLLUUU 

* 

/RESET CLOCK NOW 

COR RATHER A-0 BUFFER) . 



IFZERO 

M ACH I Nt < 



27 1 3« 

6211 

COF 

10 



27135 

6321 

ION 

> 



27136 

6665 

6665 


/TELL LPT IT'S OK 

TO INTERUPT NOW. 

27137 

5716 

JMP I 

RESET1 



77U2 

2352 

LLLUUU t UUULLL 


/POINTER TO UPPER 

CORE RESETER, 


2 7 1 U l 

3300 

RE5ET2, 0 



27142 

4537 

JMS 

I 

PRESET 

07U3 

4542 

JMS 

1 

OELOUT 

07144 

3300 

OCA 


oflag 

07145 

5741 

JMP 

X 

RESETS 


37146 

0000 

OUTOEL, 

0 


07147 

3242 


OCA 

OCOUNT 

07150 

1355 


TAD 

OPRST 

07151 

3265 


OCA 

OPOINT 

07152 

1355 


TAD 

OPRST 

07153 

3234 


DC A 

IPOINT 

07154 

5746 


JMP I 

OUTOEL 

07155 

1165 

OPRST , 

OBLOW 


07156 

7256 

QHRCHAR 

, hrchar 


07157 

6737 

PBUSY * 

BUSY 


07160 

3776 

PPXRA, 

PUTXRA 


07161 

6713 

pbidle, 

BIOLE 


37162 

7255 

SINCMAR 

, INCHAR 




/6A 


PALS-V? 




[•a 


07163 

7201 

LPTOUT, 

CLA X AC 


/LINE PRINTER OUTPUT 

07 16# 

7001 

PTPOUT, 

X AC 


/PUNCH OUT 

07165 

7001 

TTVOUT i 

XAC 


/TTY OUT 

07166 

3131 


OCA 

OUTDEV 

/AND SET XT UP 

07167 

1131 


TAO 

OUTOEV 

/ALSO MOVE OVER TO SECONDARY OEVXCE. 

07170 

3130 


OCA 

0UT02 


07171 

5375 


JMP 

DEVCOM 

/AND CHECK FOR END, 

07172 

7201 

PTRXN, 

CLA XAC 



07173 

7001 

TTYIN, 

XAC 



07176 

3127 


OCA 

XNOEV 


07175 

6177 

DEVCOM, 

JMS 

6ETW0 


07176 

4570 

DEVCON, 

mustt r 



07177 

2000 


2000 


/C.R. OR \ 

07200 

5503 


JMP X 

PEXECUTE 



07201 

0000 GETCH, 

0 


07202 

4270 

JMS 

GWHERE 

07203 

4657 

JMS X 

qbxole 

07206 

1255 

TAO 

INCHAR 



PALS-V7 


/Pit IC,l®€ 


07805 

7*50 


SNA 


07805 

5203 


JMP 

GETCM#2 

07207 

2227 


AND 

0177 

07210 

525* 


OCA 

GTEMP 

0721 1 

3255 


OCA 

XNCHAR 

07212 

3255 


OCA 

HRCHAR 

07215 

1135 


tad 

RB8MCH 

0721® 

7550 


SNA CLA 


07215 

5224 


JMP 

GRB 

07215 

1254 


TAO 

GTEMP 

07217 

1250 


TAO 

07601 

07220 

7640 


SZA CLA 


07221 

5224 


JMP 

GRB 

07222 

1261 

grdela, 

TAD 

0137 

07225 

5601 


JMP X 

GETCH 

07224 

1254 

GRB, 

TAD 

GTEMP 

07225 

1055 


TAO 

07770 

07226 

7450 


SNA 


07227 

5222 


JMP 

GROELA 

07230 

1262 


r r, 

07612 

07231 

7450 


S Ak 


07232 

5247 


JMP 

GALT 

07233 

1266 


TAO 

0143 

07234 

7650 


SNA CLA 


07235 

5247 


JMP 

GALT 

07236 

1254 


TAO 

GTEMP 

07237 

1263 


TAD 

O7640C 

07240 

7510 


SPA 


07241 

5251 


JMP 

GOUT 

07242 

1264 


TAO 

07746 

07243 

7500 


SMA 


07244 

5251 


JMP 

GOUT 

07245 

1265 


TAD 

0132 

07246 

5601 


JMP X 

GETCH 

07247 

1267 

GALT, 

TAO 

0175 

07250 

5601 


JMP X 

GETCH 

07251 

7200 

GOUT, 

CLA 


07252 

1254 


TAO 

GTEMP 

07253 

5601 


JMP X 

GETCH 

07254 

0000 

GTEMP, 

0 


07255 

0000 

XNCHAR, 

0 


07256 

0000 

HRCHAR , 

0 


07257 

6713 

QBXOLC, 

SIDLE 


07260 

7601 

07601 , 

7601 


07251 

0137 

0137, 

137 


07252 

7612 

07611, 

7612 


07253 

7640 

O7640C, 

7640 


07254 

7746 

07746, 

7746 




PALS-V7 


Se 13-6 


^sz c 

.l«E 



27265 

0132 

0132# 

132 

27266 

0143 

0143, 

143 

27267 

0175 

0173, 

173 


07270 

0000 

GWHERE, 

0 




07271 

7240 


CL A 

CM A 



07272 

1127 


TAO 


XNOEV 


07273 

2270 


xsz 


GWHERE 


07274 

7750 


SPA 

SNA 

CLA 


07275 

5670 


JMP 

X 

GWHERE 

/INPUT«TTV 

07276 

1264 


TAO 


07746 


07277 

3254 


OCA 


GTEMP 


07300 

3256 


OCA 


HRCWAR 


07301 

6014 


RFC 



/START THE READER NOW, 

07302 

1256 

HRLOP, 

TAO 


HRCHAR 


07303 

7440 


SZA 




07304 

5321 


J^P 


HFOUNO 

/GOT IT, 

07303 

2253 


IiZ 


INCHAR 


07306 

5302 


JMP 


HRLOP 


07307 

2254 


xsz 


GTEMP 


07310 

5302 


JMP 


HRLOP 


07311 

7201 


CLA 

XAC 



07312 

3131 


OCA 


QUTDEV 

/RESET OUTPUT DEVICE FOR A SECOND, 

07313 

3133 


OCA 


CNTLO 

/RESET THE CONTROL "0" SWITCH ALSO, 

07314 

4514 


JMS 

X 

PPRXNTXT 

/GIVE THE MESSAGE, 



PAL0-V7 


/^ric.uit 


27315 

7323 


HRHE8 


273|6 

7201 


CLA I AC 


Z 7 3 1 7 

3127 


OCA 

InOEv 

07320 

5670 


JMP I 

GWHERE 

07321 

2270 

HFOUND p 

ISZ 

GmHERE 

07322 

5670 


JMP I 

GWHERE 

07323 

3724 

MRNES, 

text 

# *TTV* 

07324 

2431 




07325 

3700 




07320 

0000 

COWT, 

0 


07327 

6201 


COF 

0 

07330 

3742 


OCA I 

CCXRA 

07331 

1743 

COWTLP, 

m i 

COWTFP 

07332 

6211 


CLF 

10 

07333 

7659 


SNA CLA 


07334 

5349 


JMP 

COWTO 

07335 

4744 


JMS I 

COWTW 

0733S 

6201 


COF 

0 

0733T 

5331 


JMP 

COWTLP 

07340 

3133 

COWTO, 

OCA 

CNTLO 

07341 

5726 


JMP I 

COWT 

07342 

0776 

CCXRA, 

PUTXRA 


07343 

7100 

COWTFP, 

oflag 


07344 

6713 

COWTW , 

BIOLE 



i 

! 



/THIS ROUTINE WAITS FOP. OUTPUT TO STOP, 
/SET D,F, TO THIS FIELC, 

/SET OR RESET NULL AFTER C,R, FLAG, 

/GET OUTPUT FLAG ST ATI S, 

/RESET D.F, 

/IS OUTPUT DONE? 

/TEP, EXIT, 

/NOPE, IOLE LOOP TILL INTERUPT, 

/RESET 0,F, TO ZERO, 

/ANO LOOP, 

/CLEAR CONTROL 0 STATE. 



PAL8-V7 


Pm 14-1 



i c . L«e 


B7 3a5 

0000 

XGMUST, 

0 






?73a6 

4177 


JM3 


GET WD 




e73«7 

1345 


TAO 


XGMU8T 




?7 35? 

3352 


OCA 


XMUST 




?735i 

5353 


JMP 


XMUST* 1 




07352 

0000 

XMUST, 

0 






07353 

1450 


TAO 

I 

WORD 




07354 

6201 


COP 


0 


"'* 8 K 

INSERT 

07355 

1752 


TAO 

I 

XMUST 




07356 

6211 


COP 


10 

/**"' 

"" 8 K 

INSERT 

07357 

2352 


xsz 


XMUST 




07360 

7650 


SNA 

CIA 





07361 

5752 


JMP 

X 

XMUST 




07362 

5500 


JMP 

I 

PSXERR 





07363 

4477 

ARGERR# JM8 X PERROR 

07364 

0122 

TEXT 'ARGUMENT* 

07365 

0725 


07366 

1505 


07367 

1624 


07370 

0000 


07371 

5660 

DOTZERO t TEXT *,0* 

07372 

0000 



07373 

4477 RTIRR» 

JM8 I 

PERROR 

07374 

2201 

TEXT 

'RATE* 

07375 

2405 



07376 

0000 




/GIVE RATE ERROR FOR CLOCK, 



/^^ic.lbc 


PALB-V7 


14*2 



7400 PACE 





XFZERO 

MACHINE* 




NOPUNCH* 

07400 

1136 

PLOT, 

TAO 

DISB 

07401 

7440 


SZA CLA 


07402 

5220 


JMP 

DBGOT 

07403 

1240 


TAD 

PA88UME 

07404 

4544 


JMS X 

SPLEFT 

07405 

7410 


SKP 


07404 

5755 


JMP I 

NP8PERR 

07407 

1003 


TAD 

ARRLOC 

07410 

3311 


DCA 

DLA8T 

07411 

1003 


TAO 

ARRLOC 

07412 

1240 


TAO 

PASSUME 

07413 

3003 


OCA 

ARRLOC 

07414 

7240 


CLA CMA 


07413 

1003 


TAO 

ARRLOC 

07414 

3312 


DCA 

DDLA8T 

07417 

4314 


JMS 

PLOTS 

07420 

3313 

DBGOT, 

DCA 

OBAD 

07421 

4177 


JMS 

GETWD 

07422 

4441 


JMS I 

PMEVAL 

07423 

4439 


FENTER 


07424 

4217 


FMP4F8HIFT4FWD-, 


/GET SUFFER ADDRESS. 

/IS THERE ONEf 

/GET ASSUHHED LENGTH. 
/ROOM LEFT TO F XT XT IN, 

/NO, 

/GET A USABLE ADDRESS, 
/SAVE AWAY. 

/NOW UPDATE OUR ARRAY, 


/GET LAST WORD OF OUR BUFFER NON. 

/AND GO, 

/FIGURE OUT OUR CRAP NOW, 

/TELL IT POINT IS ON SCREEN 
/GET NEXT SYNTATXCAL ELEMENT, 

/EVALUATE OUR EXPRESSION, 

/CORRECT NUMBER FOR 8YMETRXCAL SCREEN, 



ric.iat 


PAL8-V7 


14»3 


07425 

0000 

FEXlT 



07426 

4326 

JMS 

OBLIT 

/PUT IT IN THE SUFFER, 

07427 

4641 

JMS I 

PMEVAL 

/SET Y COORDINATE, 

07*30 

*326 

JMS 

OBLIT 

/PUT IT IN T4E BUFFER, 

07431 

1313 

TAD 

DBAD 

/IS IT A BAO ONE? «OFF SCREEN?* 

07432 

7041 

CIA 



07433 

1311 

TAD 

DINP 


07434 

3311 

OCA 

DINP 


07435 

7330 

CLA CLL 

cml rar 

/4000«ENO OF BUFFER CHARACTER. 

07436 

3711 

DC A I 

DINP 


07437 

5642 

JMP X 

PDEVCON 


07440 

1750 

P ASSUME ; 1 750 



07441 

7415 

PMEVAL, MEVAL 



07442 

7176 

PDEVCON , dev con 



07443 

2007 

FSHXFT , 20071160010000 

/MAGIC CONSTANT FOR SYMETRXCAL SCREEN. 

07444 

1600 




07445 

0000 





07446 

1136 

USE, 

TAO 

DXSB 

/IS DISPLAY BUFFER ASSIGNED, 

07447 

7640 


SZA CLA 



07450 

5661 


JMP I 

USKXPXT 

/YES, EXIT, 

07451 

4262 


JMS 

GETARY 

/GET THE ARRAY DATA 

07452 

1020 


TAO 

AC1 

/GET FIRST FREE LOCATION 

07453 

3311 


DCA 

DLAST 


07454 

1017 


TAO 

AC2 

/GET SECONO FREE LOCATION 

07455 

3312 


DCA 

DDLAST 

/SAVE AWAY, 

07456 

4314 


JMS 

PLOTS 

/SET UP STUFF, 

07457 

4177 


JMS 

GETWD 

/GET NEXT ELXMAENT AFTER VARIABLE. 

07460 

5642 


JMP X 

POEVCON 


07461 

0467 

U8KIPIT 

, 8KXPXT 



07462 

0000 

GETARY, 

0 


/THIS ROUTINE GETS THE FIRST AND LAST LOCATIONS OF AN ARRAY. 

07463 

4571 


GET+MU8TBE 

/MUST BE A VARIABLE, 

07464 

7000 


7000 



07465 

1050 


TAO 

WORD 

/GET POINTER TO VARIABLE, 

07466 

3302 


OCA 

UVP 


07467 

2050 


I8Z 

WORD 


07470 

1450 


TAO X 

WORD 

/GET POINTER NOW, 

07471 

7001 


X AC 



07472 

3020 


OCA 

AC1 

/SAVE AWAY, 

07*73 

2050 


ISZ 

WORO 


07474 

1450 


TAD X 

WORD 


07475 

3303 


OCA 

UiP 


07476 

2050 


X8Z 

WORD 


07477 

1450 


TAO X 

WORO 


07500 

3304 


OCA 

UIP 


07501 

4502 


JMS I 

PGITAOO 


07502 

0000 

UVP, 

0 



07503 

0000 

U1P, 

0 





/W IC.lSE 


PAL8-V7 


p 


0750* 

0000 

U2P, 

0 



07505 

7320 


CLA 

CLL 

CHL RTL 

07500 

1007 


TAD 


ADDRESS 

?75?7 

3017 


DCA 


AC2 

07510 

5002 


JMP 

I 

GETARY 

07511 

0000 

DL AST * 

0 




7511 

DlNP«Ot AST 



07512 

0000 

DDL AST , 

0 



07511 

0000 

DBAOf 

0 




07514 

0000 

PLOTS, 

0 



07515 

7240 


CLA 

CMA 


07510 

1311 


TAO 


DLAST 

•75|7 

3130 


DCA 


0X80 

07520 

1325 


TAD 


04001 

07521 

3712 


DCA 

X 

00LA8T 

07522 

7330 


CLA 

CLL 

cml rar 

07523 

3711 


DCA 

X 

OLAST 

07524 

5714 


JMP 

X 

PLOTB 

07525 

4001 

04001, 

4001 




07524 

0000 

DBLIT, 

0 



07527 

1024 


TAD 


ACS 

07530 

7700 


SWA 

CLA 


07531 

5335 


JMP 


.♦4 

07532 

7320 

DBBAO , 

CLA 

CLL 

CML RTL 

07533 

3313 


DCA 


DBAD 

07534 

5347 


JMP 


DBXSRT 


/♦2 



PALS-V7 



c.ise 



14-5 


07535 

1225 


TAO 

ACE 

27538 

1354 


TAO 

075772 

27537 

7700 


sma cla 


27542 

5332 


JMP 

DBBAD 

?75« 1 

1 225 


TAO 

ACE 

27542 

1285 


TAO 

012 

27543 

3025 


OCA 

ACE 

27544 

4508 


JM$ I 

PFXX 

27545 

7220 


CLA 


27548 

1016 


TAO 

AC3 

27547 

4356 

OBXSRT, 

JMS 

DBPUT 

07552 

7330 


CLA CLL 

CML RAR 

27551 

2311 


xsz 

OXNP 

07552 

4356 


JMS 

OBPUT 

87553 

572* 


JMP I 

OBLIT 

27554 

7577 

075770 » 

7577 


07555 

2370 

NP8PERR 

, SPACERS 


87558 

0080 

DBPUT t 

0 


87557 

3817 


OCA 

AC2 

87588 

7358 


CLA CLL 

CMA RAR 

27581 

1711 


TAO X 

OXNP 

87582 

7650 


SNA CLA 


87583 

5755 


JMP X 

NPSPERR 

87584 

1017 


TAO 

ACS 

87585 

3711 


OCA X 

OXNP 

87588 

5758 


JMP X 

DBPUT 

875*7 

4477 

UUOATA f 

JMS X 

PERROR 

27578 

0155 


TEXT 

•a.o full* 

27571 

0440 




27572 

0825 




07573 

1414 




27574 

0880 





/«4001»3777 


/NO ROOM IN SUFFER. BOMB HIM, 


ENPUNCH 


xfnzro machine^ 



/WIC.LAE 


PAGE 


PAL8-V7 


IPZERO MACHINE* 
7400 *PL0T» 


07400 

0000 SETUP* 

0 


07401 

1005 

TA*> 

PSYMTA0 

07402 

3056 

OCA 

EPTR 

07405 

1006 

TAO 

NSYMTAB 

07404 

3057 

OCA 

FPTR 

07405 

3136 

OCA 

0X88 

07406 

5600 

JMP X 

SETUP 


xfnzro MACHINE* 

COEVCOM,DEVCOM 


IFZERO MACHINE* 
0000 CDEVCOM90 


07407 0000 I3ET, 

07410 6050 

07411 8055 


0 

oiuc 

OXXY 




pals-vt 


PXW 14«7 


/®ic 

• LSE 




87412 

4614 

JMS 

I 

IXXR 

27413 

5607 

JMP 

I 

XSET 

074 1 A 

7141 HXR, 

RESET? 




IFZERO MACHXNE4 
NOPUNCH* 


07415 

0000 

MEVAL, 

0 



07416 

4566 


X0XT 


/IS XT A C,R, 

07417 

2000 


2000 



07420 

7410 


SKP 



07421 

5500 


JMP X 

P8XERR 


07422 

4566 


X8XT 



07423 

3763 


3763 


/* 

07424 

5227 


JMP 

.♦5 


07425 

4177 


JMS 

GETWD 


07426 

5216 


JMP 

MEVALM 


07427 

1215 


TAO 

MEVAt 


07430 

5631 


JMP X 

mevalgo 


07431 

1007 

mevalgo 

,evalgo 




07432 

1136 CLEAR, 

TAO 


0X86 



07433 

7450 

SNA 



/IS XT 

THERE? 

07434 

5400 

JMP 

X 

COEVCOM 

/NOPE, 


07435 

3013 

OCA 


INDEX 1 



07436 

7330 

CLA 

CLL 

CML RAR 

/4000 


07437 

3413 

OCA 

X 

INDEX 1 



07440 

6201 

COP 


0 

/RESET 

INPUT POXNTER ALSO 

07441 

1013 

TAO 


INDEX 1 



07442 

3645 

OCA 

X 

COINP 



07443 

6211 

COF 


10 



07444 

5400 

JMP 

X 

COEVCOM 





PALS-V7 


i «*0 


/ 



C 


.l8E 


07445 

7511 

COINP, 

OINP 


07440 

0020 

LLLJMS, 

0 


27447 

1540 


TAD I 

ILL JNS 

07452 

0246 


ISZ 

LLIJMS 

07451 

3257 


OCA 

LLLJMP 

07450 

4657 


JMS I 

LLLJMP 

07455 

7410 


SKP 




/IN CASE or SKIPPING RETURN, 




07454 

2246 

ISZ 


LLLJMS 

07 455 

62)3 

CIP 

COP 

10 

07456 

5646 

JMP 

X 

LLLJMS 


07457 

0000 

LLLJMP, 0 


07460 

1657 

TAD I 

LLLJMP 

07461 

3257 

OCA 

LLLJMP 

07462 

5657 

JMP I 

LLLJMP 


07463 

7326 DELAY, 

CL ' 

CLL CML RTL 

07464 

3220 

OCA 

NDELAY 





XPNZRO 

MACHINE< 



NULJOB, 

TAD 

DXSB 




XPZERO 

MACHINE* 




ENPUNCH 



7415 


•MEVAL 


07415 

7001 

NUL JOB, 

X AC 


07416 

5215 


JMP 

NULJOB 




NOPUNCH* 

07417 

3015 


OCA 

OISAUTO 

07420 

1220 


TAD 

NDELAY 

07421 

7110 


CLL RAR 


07422 

3220 


DCA 

NDELAY 

07423 

7430 


SZL 


07424 

5400 


JMP X 

COEVCOM 

07425 

1136 


TAO 

DXSB 

07426 

7650 


SNA CLA 


07427 

5215 


JMP 

NULJOB 

07430 

1415 

NULLOP, 

TAD I 

OISAUTO 

07431 

7510 


SPA 


07432 

5254 


JMP 

NULCMD 

07433 

1256 


TAD 

OT000C 

07434 

6052 


OISO 


07435 

5234 


JMP 

• •1 


P*W 15 


/♦2 

/SET UP OEALY TIME (ONE TIME THROUGH). 


/SET UP AUTO INDEX REGISTER NOW. 


/WITH POINTER TO OUR SUPPER. 
/UPDATE DELAY WORO. 


/ARE WE P1NISHEO WITH DELAY COMMAND? 
/YEP, EXIT NOW, 

/GET OUR WORO NOW. 

/ZERO? 

/YEP. WAIT AWHILE. 


/BRING OOWN INTO RANGE OP SCREEN 



PAU0-V7 


/Ac 

#L§E 


07436 

6053 

OXLX 

07437 

7200 

CIA 

07440 

U15 

TAD I 

07441 

7510 

SPA 

07442 

5254 

JMP 

07443 

1256 

TAO 

07444 

6052 

DISO 

07445 

5244 

JMP 

07446 

6054 

OILY 

07447 

7200 

CIA 

07450 

6052 

OISO 

07451 

5250 

JMP 

07452 

6055 

DIXY 

07453 

5230 

JMP 

07454 

7200 

NULCMD, CLA 

07455 

5215 

JMP 


,3 

OZ S AUTO 
NUUCHO 

O7000C /CENTER AGAIN 

• ■1 

• •1 

NULLOP 
NUL JOB 


07456 7000 O7000C, 7000 

07457 6762 NINTECDF, INTECDF 


07460 

4477 

UUNOAO, JM8 X 

PERROR 

07461 

1617 

TEXT 

•NO A* 

07462 

4001 



07463 

5504 



07464 

0000 




07465 

0000 

CCXNTK , 0 


07466 

6131 

6131 


07467 

5665 

JMP X 

CCXNTK 

07470 

6213 

CIP CDF 

10 

07471 

5672 

JMP X 

.♦1 

07472 

0175 

CLOCK! 



7473 REALTX*. 

7473 8ETRAT* , 


15*1 



/*”c 

.L8C 



7473 

SETCLO* , 


7473 

WA1TC*. 


7473 

WAIT*, 


7473 

REJECT*. 


7473 

ACCEPT*. 

07473 

1458 

TAD X WORO 

87474 

6213 

COF CIF 18 

87475 

5676 

JMP I ,♦! 

87474 

8731 

upcomoo 


PAL0-V7 


PA< 


F 1 5-2 



7477 

TIM*, 



7477 

CLr «, 



7477 

CLf>* • 



7477 

ADC*. 



7477 

ADB*. 


8T477 

0000 

0 


07588 

1436 

TAO I 

PDL 

07581 

6213 

CIF COF 

10 

07582 

4704 

JM3 X 

.♦2 

07503 

5677 

JMP X 

ADB 

07584 

0747 

UPFUN 



/RECALL CORRECT FUNCTION NUMBER (IT'S ON THE 5TACK) 


ENPUNCH 

IFZERO MACHINE* 
7417 *NULJ0B+2» 

87417 3762 T8TFX » BEGFXX 

8742e 8888 NDELAY , 8 



PA(.8-V7 


/ 



C.l«E 


07«21 

0000 

TST # 

0 



07422 

4617 


JMS 

I 

TSTFX 

07423 

6201 


CDF 


0 

07424 

1631 


TAD 

I 

TSTP 

07425 

6211 


CDF 


10 

07426 

3016 


OCA 


ACS 

07427 

4546 


JMS 

I 

PANORM 

07430 

5621 


JMP 

1 

TST 

07431 

7255 

T3TP, 

INCHAR 



0001 


FIELD 1 



/^IC.lBE 


PAL8-V7 

P0} 15-4 

0000 

• 0 




10000 

2045 

TEN, 

204510000/0000 

/INSERTED IN UPPER CORE BECAUSE OF FEEBILITV 

10001 

0000 




1 0002 

0000 




10003 

0000 

CLKSTS# 

0 


1000a 

0000 

TIM1, 

0 


10005 

0000 

TIM2, 

0 


10006 

0000 

ABDCET , 

0 


10007 

0000 

ADACPT p 

0 


10010 

0000 

ADCUNT, 

0 


10011 

0000 

CLTCMP, 

0 


10012 

0000 

ADCX , 

0 


10013 

0100 

U100, 

100 


1001 a 

0000 

CT3, 

0 


10015 

0000 

CT2, 

0 


10016 

0000 

CT1, 

0 


10017 

0177 

U177 , 

177 


10020 

4707 

U4707, 

4707 


10021 

7775 

U7775, 

7775 


10022 

0000 

ACOUNT, 

0 


10023 

0000 

APUTt, 

0 


1002 a 

0000 

APUT2, 

0 


10025 

0000 

A0A1, 

0 


10026 

0000 

ADA2, 

0 


10027 

0000 

ADA3, 

0 


10030 

0550 

UUSETF , 

U3ETF 


10031 

0673 

UHEVAL, 

UUMEVAL 


10032 

0677 

UPFXX, 

UUPFIX 


10033 

0007 

U7, 

7 


1003a 

5010 

U5010, 

5010 


10035 

7767 

U7767, 

7767 


10036 

0010 

U10, 

10 


10037 

0654 

UACt, 

UUAC1 


10060 

0661 

UAC2, 

UUAC2 


I 00 ai 

0666 

UAC3, 

UUAC3 


10042 

0020 

PPAC1, 

ACi 


10043 

0017 

PPAC2, 

AC2 


10044 

0016 

PPAC3, 

ACS 


10065 

0025 

PPACE# 

ACE 


10046 

0024 

PPAC8, 

ACS 


10067 

0017 

U17, 

17 


10050 

7777 

U7777, 

7777 


10051 

0362 

UOOAOi 

OOAD 


10052 

7760 

UT760I 

7760 


10053 

0000 

UT*MPi 

0 




1 005a 

0722 

UJMP, 

UUJMP 


10255 

0707 

0JM3, 

UUJMS 


10056 

0705 

UOEVCON, 

rUUDEVCON 


10057 

60e0 

UCETwO, 

6000 


10060 

4455 


JM3 X UJMS 


10061 

8177 


CETWD 


10062 

5457 


JHP X UGETmO 


10063 

0000 

AUTEMP, 

0 


1006« 

7767 

ADCCOR, 

•11 

/ABOUT 512 FOR FUDGE. 


0200 

PAGE 

ei?3 

*,•3 


10175 

6135 

CLOCK!, 6135 


/CLEAR CLOCK FLAG, 

10176 

3003 

OCA 

CLK8TS 

/AND SAVE STATUS, 

10177 

2005 

xsz 

TIM2 

/INCREMENT CLOCK, 

10200 

5203 

JMP 

.♦3 


10201 

2004 

26Z 

TIMl 


1 0202 

7000 

NOR 



10203 

1006 

TAO 

ABDGET 

/IS REAL TIME OPTION RUNNING? 

10204 

7750 

IPA SNA 

CLA 




/MIC 

• LSE 


■ r 

PALB-V7 

10305 

5234 


JMR 

UIEXT 

10206 

1007 


TAO 

AOACPT 

1020T 

7650 


SNA CLA 


10210 

5234 


JMP 

UIEXT 

10211 

1010 


TAD 

AOCUNT 

10212 

3011 


DCA 

CLTEMP 

10213 

1012 


TAD 

AOCX 

10214 

6531 


6531 


10213 

1013 


TAO 

U100 

10216 

6536 


6536 


10217 

4451 

UCLOOP, 

JM8 1 

UDOAO 

10220 

4263 


JMS 

APUT 

10221 

2011 


ISZ 

CLTEMP 

10222 

5217 


JMP 

UCLOOP 

10223 

2014 


ISZ 

CT3 

10224 

5234 


JMP 

UIEXT 

10225 

2015 


ISZ 

CT2 

1 0226 

5234 


JMP 

UIEXT 

10227 

2016 


ISZ 

CT1 

10230 

5234 


J> • 

UIEXT 

10231 

7240 


C.A CMA 


10232 

3006 


OCA 

ABDGET 

10233 

3007 


DCA 

AOACPT 

10234 

6031 

UIEXT f 

6031 


10235 

5243 


JMP 

UIEXT2 

10236 

6034 


6034 


10237 

0017 


AND 

U177 

10240 

1021 


TAO 

U7775 

10241 

7650 


SNA CLA 


10242 

9245 


JMP 

UIEXT3 

10243 

6131 

UIEXT2, 

6131 


10244 

5260 


JMP 

UXEXT4 

10245 

1020 

UIEXT3, 

TAD 

U4707 

10246 

6132 


6132 


1 0247 

6135 


6135 


10250 

6130 


6130 


10251 

7240 


CLA CMA 


10252 

6130 


6130 


10253 

6032 


6032 


10254 

3006 


DCA 

ABDGET 

10255 

3007 


OCA 

AOACPT 

10256 

4454 


JMS I 

UJMP 

10257 

7373 


RTERR 


10260 

6203 

UIEXT4, 

CIF CDF 

0 

10261 

5662 


JMP I 

.♦1 

10262 

6744 


INTEXT 




/NO*E. 

/IT SO, ARE ME NOW ACCEPTING DATA? 

/NOPE. 

/YEP, GET NUMBER OF CHANNELS TO DO. 

/BET UP OUR COUNTER, 

/GET STARTING CHANNEL NUMBER, 

/SENO TO TO CONTROLLER. 

/TELL IT TO INCREMENT MULTIPLEXOR WHEN DONE, 


/PREFORM A»D INSTRUCTION, 

/STORE IN USERS BUFFER, 

/ALL DONE? 

/NOPE, WAIT,. 

/DONE, INCREMENT TOTAL NUMBER OF SAMPLES, 


/ALL DONE, STOP SAMPLING, 
/ANO GO INTO "REJECT* MOOE, 


/HAS HE TYPED A CONTROL CT 
/NO, 


/ fc C7 

/YESi BOMB HIM, 


/CLOCK HAS NOT COME UP AGAIN, ALL IS WELL. 
/STOP CLOCK IMMEADIATATELY. 


/CLEAR ALU AFTER PARTIAL ENABLE, 
/CLEAT TTY FLAG, 

/FREE BUFFER AND ACCEPT MOOE. 


/INTERUPT EXIT, 


/AND 00 WHATEVER GOO INTENDED 



^SlC.lSE 


PALS-V7 


10263 

0000 

APUT, 

0 


1 026 A 

3A23 


OCA I 

APUT 1 

10265 

2022 


ISZ 

ACOUNT 

10266 

4325 


JMS 

ABOP 

10267 

0023 


APUT1 


10270 

1023 


TAD 

APUT 1 

10271 

7041 


CIA 


10272 

1024 


TAO 

APUT2 

10273 

7640 


SZA CLA 


1 027 A 

5663 


JMp I 

APUT 

10275 

3006 


OCA 

ABOGET 

10276 

3007 


DCA 

ADACPT 

10277 

4454 


JMS I 

U JMP 

10300 

7567 


UUDATA 


10301 

0000 

AGET , 

0 


10302 

7240 


CLA CMA 


10303 

1022 


TAD 

ACOUNT 

10304 

7500 


S*'/, 


10305 

S312 


J IP 

.♦5 

10306 

7200 


CLA 


10307 

4455 


JMS I 

UJM8 

10310 

6713 


BIDLE 


10311 

5302 


JMP 

AGET*1 

10312 

3022 


OCA 

ACOUNT 

10313 

1424 


TAD X 

APUT2 

10314 

3323 


DCA 

ATEMP 

10315 

6002 


IOF 



15-T 


/this routine puts a sample in the buffer, 
/place in suffer. 

/increment counter, 

/BOP UP POINTER, 

/GET INPUT POINTER, 

/DOES IT MATCH OUTPUT POINTER? 

/NOPE, ALL !S WELL. 

/FREE BUFFER, 

/ANO ACCEPT, 

/GIVE ERROR, 

/A-D ERROR, 


/THIS GETS A DATA ITEM FROM BUFFER, 
/DECREMENT COUNTER. 

/OR SHOULD WE? 

/YEP, STILL ITEMS LEFT, 

/PUT TO SLEEP 

/ANO CHECK AGAIN WHEN AWAKE, 

/SAVE COUNTER, 

/GET THE SAMPLE, 

/SAVE WHILE UPDATE TAKES PLACE, 



PAL8-V7 



XC.LSt 


10316 

4325 


JMS 

ABOP 

1031? 

0024 


APUT2 


1C320 

6001 


ION 


10301 

1303 


TAD 

ATEMP 

10300 

5701 


JMP I 

AGET 

10303 

0000 

ATEMP, 

0 


10304 

0000 

ATEMP2, 

0 



10305 

0000 ABOP f 

0 



10306 

1725 

tad 

I 

ABOP 

10327 

3324 

OCA 


ATEHP2 

10330 

1724 

TAD 

I 

ATEMP2 

10331 

2325 

ISZ 


ABOP 

10332 

102S 

TAD 


ADA 1 

10333 

7450 

SNA 



10334 

1026 

TAD 


ADA2 

10335 

1027 

TAO 


ADAS 

IC336 

3724 

D' A 

I 

ATEMP2 

10337 

5725 

JMP 

I 

- ABOP 


10340 

0000 

UCLS, 

0 


10341 

1003 


TAD 

CLKSTS 

10342 

4430 


JMS I 

UUSETF 

10343 

0000 


0 


10344 

5740 


JMP X 

UCLS 

10345 

0000 

UCLCr 

0 


10346 

6137 


6137 


10347 

4430 


JMS I 

UUSETF 

10350 

0000 


0 


10351 

5745 


JMP I 

UCLC 


10352 0000 UUULLL# 0 

10353 7200 CLA 


pm u 


/ABOP WILL F--K YOU UP IF CALLED RE-ENTRENTLY . 


/SAVE POINTER NOW, 

/GET VALUE AND SKIP PAST POINTER #1, 
/TEST AGAINST UPPER, 

/CORRECT TO LONER, 

/AND AOO IN UPPER, 

/AND THEN SAVE AWAY, 

/AND THEN EXIT, 


/GETS STATUS AFTER LAST CLOCK INTERUPT, 


/RETURN WHEN DONE, 


/READS IN AS A CLCA 
/GET COUNT REGISTER, 

/FIX IT UP, 

/ANO RETURN NOW, 



PAL6-V7 


P® lbm\ 




ie35« 

3022 


DC A 

ACOUNT 

10355 

3004 


OCA 

ABDGET 

10354 

3007 


OCA 

adacpt 

10357 

4001 


ION 


10348 

4202 


CIP 

0 

10341 

5752 


JMP I 

UUULLL 

10342 

0000 

DOAD, 

0 


10343 

1052 


TAD 

U7740 

10344 

3375 


DCA 

DSCREW 

10345 

4532 


4532 


10344 

4534 

OOAOLP, 

4S34 


10347 

7410 


SKP 


10370 

5373 


JMP 

.♦3 

10371 

2375 


ISZ 

OSCREW 

10372 

5344 


JMP 

DOADLP 

10373 

4533 


4533 


10374 

5742 


JMP I 

DOAD 

ie375 

0000 

DSCREW, 

0 



/plenty op delay 

/SAVE IN A COUNTER WORD, 

/START CONVERSION, 

/WAIT UNTIL DONE, 

/IP NOT DONE, WAIT SOME, 

/IP DONE, REAO IT IN, 

/WAIT UNTIL DONE OR TOO LONS, 

/THEN REAO IN THE CONVERTED NUMBER 
/AND RETURN, 


0400 


PAGE 



ic.t*e 


paus-vt 


10400 

0057 

USETR, 

JMS 


UGETWO 

10001 

4031 


JMS 

I 

UMEVAL 

10«02 

0032 


JMS 

X 

UPPIX 

10003 

0033 


AND 


U7 

10000 

7106 


CLL 

rtl 


10405 

7006 


rtl 



10O0S 

7006 


rtl 



10007 

1034 


TAD 


U5010 

10410 

5216 


JMP 


USETM 

10*11 

4057 

USETC, 

JMS 


UGETWD 

10412 

4431 


JMS 

I 

UMEVAL 

10*13 

4432 


JMS 

I 

UPPIX 

10410 

0035 


A> C 


U7767 

10015 

1036 


T <D 


U10 

10410 

3053 

U8ETM, 

DCA 


UTEMP 

10*17 

7240 


CLA 

CMA 


10420 

6130 


6130 



10*21 

7200 


CLA 



10422 

4431 


JMS 

I 

UMEVAL 

10423 

4432 


JMS 

1 

UPPIX 

10424 

7041 


CIA 



10425 

6002 


IOF 



10*28 

6133 


6133 



10*27 

7200 


CLA 



10430 

3004 


DCA 


TIM1 

10431 

3005 


DCA 


TIM2 

10432 

1053 


TAD 


UTEMP 

10433 

6132 


6132 


10434 

6001 


ION 



10435 

7200 


CLA 



10436 

5456 


JMP 

I 

UDEVCON 


10437 

7240 

UWAIT r CLA CMA 


10440 

1005 

UWAITC, TAD 

TIM2 

10441 

3053 

OCA 

UTEMP 

10442 

4455 

JMS I 

U JMS 

10443 

6713 

BIDLE 


10444 

1053 

TAD 

UTEMP 

10445 

7041 

CIA 


10446 

1005 

TAD 

TIM2 

10447 

7650 

SNA CLA 


10450 

5242 

JMP 

UWAXTC+2 

10451 

0454 

RANOAE, JMS I 

U JMP 



/BOP PAST CHAR ( 

/THIS ROUTINE SETS UP CLOCK TO A GIVEN TIME, 
/FIX UP AC, 

/JU«T GET SIGNIFICANT BITS (0«7), 

/NOW MOVE TO TIME PORTION (3-5) 


/SET OTHER CORRECT BITS NOW, 


/BOP PAST BAO POINTER, 

/THIS ROUTINE LOADS CLOCK WITH USERS COMMAND REGISTER, 
/MAKE SURE TO TURN IN r ERUPTS ON, 


/SAVE ENABLE REGISTER FOR A SECOND, 
/CLEAR CLOCK NOW, 

/SO WE CAN LOAD IN CORRECT STUFF, 
/EVALUATE HIS TIME SETTING, 


/MAKE SURE INTERUPT8 ARE OFF, 


/CLEAR OUT THE TIM NOW, 

/RECALL DESIRED ENABLE REGISTER, 
/8EN0 IT OUT, 

/TURN ON INTERUPTS NOW, 

/ANO EXIT NOW, 


/WAITS FOR AN INTERUPT, SET TO LOOK LIKE CLOCK DID IT, 

/GET LOW OROER WORD. 

/SAVE FOR AWHILE, 

/PUT TO SLEEP, 

/WAS IT CLOCK (OR OTHER IF CLOCK FUDGED?) 

/COMPARE AGAINST PRESENT CLOCK, 

/NOT CORRECT, WAIT SOME MORE, 



PAL8-V7 




12*52 

7175 


DEVCOM 


12*53 

1026 

UACCPT, 

TAD 


ABOGET 

ie«5* 

77*0 


SZA 

SMA 

CLA 

10*55 

7201 


CLA 

I AC 


ie«56 

3007 

UREJT, 

DCA 


ADACPT 

18-57 

5251 


JMP 


RANOAE 


10*60 

1007 UREAL, 

TAD 


ADACPT 

12*61 

7650 

SNA 

CLA 


10462 

5265 

JMP 


• ♦3 

10463 

4454 

JMS 

I 

U JMP 

18*64 

0467 

SKJPIT 


10465 

4455 

J it) 

I 

U JMS 

10*66 

7462 

GETARY 


10*67 

4437 

JMS 

I 

UAC1 

18470 

3023 

DCA 


APUT1 

10471 

1023 

TAD 


APUTl 

10472 

3024 

DCA 


APUT2 

18473 

4440 

JMS 

I 

UAC2 

10474 

7041 

CIA 



10475 

3025 

DCA 


AOA1 

10476 

4440 

JMS 

I 

UAC2 

10«77 

7001 

I AC 



10500 

3027 

DCA 


ADAS 

10501 

1027 

TAD 


ADAS 

13502 

7041 

CIA 



10503 

1023 

TAD 


APUTl 

10504 

3026 

OCA 


ADA2 

10505 

4057 

JMS 


UGETWD 

10506 

4431 

JMS 

I 

UMEVAL 

18507 

4432 

JMS 

I 

UPFIX 

10510 

0047 

AND 


U17 

10511 

3012 

DCA 


ADCX 

10512 

4431 

JMS 

I 

UMEVAL 

1B513 

4432 

JMS 

X 

UPFIX 

10514 

7440 

SZA 



10515 

1050 

TAD 


U7777 

10516 

0047 

AND 


U17 

10517 

7040 

CMA 



10520 

3010 

DCA 


AOCUNT 

10521 

4431 

JMS 

I 

UMEVAL 

10522 

4432 

JMS 

I 

UPFIX 

10523 

7161 

CLL 

CML 

CIA 

10524 

3014 

DCA 


CT3 

10525 

7004 

RAL 



12526 

4440 

JMS 

I 

UACI 


16-3 


/IS BUFFER ASSIGNED? 

/YEP. ME CAN ACCEPT NOW. 

/OR REJECT. 

/AND THEN EXIT, 


/REAL TIME OECOOING FUNCTION, 


/ARE ME ACCEPTING NOMf 


/PICK UP BUFFER ITEMS, 

/GET ME FIRST MORD OF ARRAY, 
/SAVE AMAY NON, 

/ALSO SET UP OUTPUT POINTER, 

/GET LAST MORD OF ARRAY, 

/SAVE IN UPPER LIMIT TESTER, 
/GET AGAIN, 

/ADD ONE, 

/ANO SAVE AMAY IN BOPPER MORD, 
/FINALLY GET THE RESET WORD. 


/and SAVE AWAY FOR WRAP AROUND CONDITION, 
/BYPASS REAL TIME STATEMENT, 

/EVALUATE AN EXPRESSION 
/FIX THE AC NOW, 

/JUST GET CHANNEL NUMBER, 

/SAVE AWAY, 

/EVALUATE another item, 

/Fix IT UP, 

/IF ZERO' DO NOT SUBTRACT ONE, 

/SUBTRACT ONE TO BRING INTO 0»17 RANGE. 
/MARE INTO 0M7, 

/NOW NEGATE AND SUBTRACT ONE, 

/AND SAVE AWAY CORRECT I8Z COUNTER, 

/NOW GET NUMBER OF SAMPLES (CLOCK TICKS) 


/SET UP LOW ORDER WORD OF COUNTER, 
/AND PRESERVE CARRY. 



PALS- 


13527 

7161 

CLL 

cml 

CIA 

: 35 30 

3015 

OCA 


CT2 

13531 

7004 

ral 



135 32 

4437 

JMS 

I 

U AC 1 

13533 

7161 

CLL 

CML 

C X A 

13514 

3016 

OCA 


CT1 

13535 

3022 

OCA 


ACOUNT 

13536 

7201 

CLA 

X AC 


13537 

3006 

OCA 


ABDGET 

13540 

5456 

JMP 

X 

UOEVCON 


10541 

0000 

UTXM, 

0 


10542 

1004 


TAD 

TIM1 

10543 

3346 


DCA 

,♦3 

10544 

1005 


TAD 

TIM2 

10545 

4430 


JMS X 

UUSETF 

10546 

0000 


0 


10547 

5741 


JMf I 

UTIM 

10550 

0000 

USETF, 

0 


10551 

3053 


DCA 

UTEMP 

10552 

4455 


JMS X 

UJM8 

10553 

3762 


BEGFXX 


10554 

1750 


TAD X 

USETF 

10555 

6201 


CDF 

0 

10556 

3443 


DCA X 

PPAC2 

10557 

1053 


TAO 

UTEMP 

10560 

3444 


DCA X 

PPAC1 

10561 

6211 


CDF 

10 

10562 

4455 


JMS X 

UJMS 

10563 

4600 


ANORM 


10564 

2350 


xsz 

USETF 

10565 

5750 


JMP X 

USETF 


0600 


PAGE 




i 6*4 


/clear present buffer counter, 

/SET UP BUFFER, 

/RETURNS CLOCK TICK. 


/SAVE LOW ORDER WORD OF FAC. 

/PREPARE TO XNTERGXZE XT, 
/GET MIDDLE WORD, 

/PLACE IN FAC, 

/GET LOW WORD, 

/PLACE IN FAC, 


/BYPASS VALUE 
/RETURN NOW, 



/^ie.Lftc 


PALS-V? 


i 6*5 


10600 

0000 UADCB, 

0 



10601 

7710 

SPA 

CLA 


10602 

5222 

JMP 


UADCN 

10603 

1006 

TAO 


ABDGET 

10604 

7450 

SNA 



10605 

5220 

JMP 


UABAO 

10606 

7710 

SPA 

CIA 


10607 

5215 

JMP 


UAOCMY 

10610 

1007 

TAD 


ADACPT 


/THIS RETURNS A VALUE FROM THE A-D. 
/BUFFERED OR DIRECT? 

/OIRECT, 

/CHECK TO SEE WHETHER BUFFER ASSGXNED 

/NO BUFFER ASSIGNED, 

/XS BUFFER ACTIVE? 

/NO, GET COUNT, 

/ACTIVE. ARE WE ACCEPTING DATA? 



PA18-V7 


17 



xc.lse 


10611 

7650 


SNA 

CLA 


10612 

5215 


JMP 


UAOCMY 

10613 

4653 

UAOCIN, 

JHS 

1 

UPAGET 

10614 

5231 


JMP 


U IN AC 

10615 

1022 

UAOCMY, 

TAD 


ACOUNT 

10616 

7640 


8ZA 

CLA 


10617 

5213 


JMP 


UAOCIN 

10620 

4454 

U ABAC , 

JMS 

I 

U JMP 

10621 

7460 


UUNOAO 


10622 

4432 

UADCN, 

JMS 

X 

UPFXX 

10623 

0047 


AND 


U17 

10624 

6002 


XOF 



10625 

6531 


6531 



10626 

6536 


6536 


10627 

4451 


JMS 

I 

UDOAD 

10630 

6001 


ION 



10631 

3063 

UlNAC , 

OLA 


AUTEMP 

10632 

1063 


TAD 


AUTEMP 

10633 

7510 


SPA 



10634 

7041 


CIA 



10635 

4430 


JMS 

X 

UU8ETF 

10636 

0000 


0 



10637 

1063 


TAD 


AUTEMP 

10640 

6201 


COF 


0 

10641 

7710 


SPA 

CLA 


10642 

7330 


CLA 

CLL 

CML RAR 

10643 

3446 


OCA 

X 

PPACS 

10644 

1445 


TAO 

I 

PPACE 

10645 

1064 


TAO 


AOCCOR 

10646 

7500 


SMA 



10647 

3445 


DC A 

I 

PPACE 

10650 

7200 


CLA 



10651 

6211 


COF 


10 

10652 

5600 


JMP 

X 

UADCB 


10653 

0301 

UPAGET, 

AGET 


10654 

e000 

UUAC1, 

0 


10655 

6201 


COF 

0 

10656 

1442 


TAO I 

PPACt 

10657 

6211 


COF 

10 

10660 

5654 


JMP X 

UUAC1 

10661 

0000 

UUAC2, 

0 


10662 

6201 


CDF 

0 


/NO, CHECK COUNT IN BUFFER, 

/GET VALUE FROH A-D BUFFER. 

/ANO FIX IT UR, 

/GET BUFFER COUNTER NOW. 

/■0T 

/NOPE. WE CAN RETURN SOME DATA, 

/NO A«0 DATA IN BUFFER. HE'S F—KED, 


/NON-REAL TIME. 

/JUST GET CHANNEL NUMBER, 

/WE CANNOT BE XNTERUPTTED HERE, 


/PREFORM THE CONVERSION NOW, 
/RESTORE XNTERUPTS, 

/SAVE FOR A SECOND, 

/PLACE ABSOLUTE VALUE XN FAC, 


/NOW SET SIGN OF FAC, 

/SET TO PICK UP FIELD 0, NO COOLNESS LEFT# 0E8PXTE COMMENTS, 
/IF POSXTVE LEAVE ALONE, 

/SET LEFT MOST BIT ON TO INDICATE NEGATIVE. 

/GET EXPONENT NOW, 

/BRING INTO CORRECT RANGE NOW, 

/IF TOO FAR, 

/DON'T CORRECT, 

/RESET COF, 

/RETURN TO FIELD ONE (COOL #U6H1) 



/Mxc.ise 


PAL8 


10663 

1443 

TAO I 

PPAC2 

10664 

6211 

COP 

10 

10665 

5661 

JMP I 

UUAC2 

10666 

0000 UUAC3, 

0 


10667 

6201 

COP 

0 

10670 

1444 

TAO I 

PPAC3 

10671 

6211 

COP 

10 

10672 

5666 

JMP I 

UUAC3 


10673 

0000 

UUMEVAL 

i0 


10674 

4455 


JMS I 

UJMS 

10675 

7415 


MEVAL 


10676 

5673 


JMP I 

UUMEVAL 

10677 

0000 

UUPPIX, 

0 


10700 

4455 


JMS I 

UJMS 

10701 

4744 


PIX 


10702 

7200 


CLA 


10703 

4441 


JfS I 

UAC3 

10704 

5677 


JMP I 

UUPPIX 

10703 

4454 

UUDEVC , 

JMS I 

UJMP 

10706 

7176 


OEVCON 



10707 

0000 UUJMS* 

0 


10710 

6202 

CIP 

0 

10711 

1707 

TAO I 

UUJM8 

10712 

3314 

OCA 

• ♦2 

10713 

4721 

JMS I 

UUUJM8 

10714 

0000 

0 


10715 

7410 

SKP 


10716 

2307 

xsz 

UU JMS 

10717 

2307 

isz 

UUJMS 

10720 

5707 

JMP I 

UUJM8 


10721 7446 UUUJM5, LLL JMS 



/IN CASE OP SKIPPING RETURN 



PAIB-Vf 



C.L0E 



17-2 


10722 

0000 

UUJMP, 

0 


ie723 

62ea 


GIF 

0 

10704 

1722 


TAD I 

UUJMP 

10725 

3327 


OCA 

• ♦2 

10726 

4730 


JM8 X 

UUUJMP 

10727 

0000 


0 


10730 

7457 

UUUJMP, 

LLLJMP 



10731 

1335 

UPCOMDO , T AO 

10732 

1336 

TAD 

10733 

3334 

OCA 

10734 

7402 

HLT 

10735 

1740 

UUFU06E , *6040 

10736 

5737 

UPJMP , JMP I 

10737 

0460 

UREAL 

10740 

0400 

USETR 

10741 

0411 

USETC 

10742 

0440 

UWAXTC 

10743 

0437 

UWAIT 

10744 

0000 

0000 

10745 

0453 

UACCPT 

10746 

0456 

UREJT 


10747 

0000 

UPFUN, 

0 

10750 

1356 


TAD 

10751 

1357 


TAD 

10752 

3353 


DCA 

10753 

7402 


HLT 

10754 

6202 


CXF 

10755 

5747 


JMP I 

10756 

7757 

UFFUD, 

*21 

10757 

4760 

UFJMP, 

JM8 X 

10760 

0770 


ZZ ADC 

10761 

0000 


0000 

10762 

0541 


UTIM 


UUFUD6C 

UPJMP 

.♦l 


.♦l 


/NOT USEO NOW 


UFFUD 

UFJMP 

.♦1 

0 

UPFUN 


.♦1 



3 

2000 

0000 

? T» a 

3000 

0000 

’ 7 - <- 

23*0 

UCL8 

27 -* 

?3w5 

UCLC 

>7*7 

2775 

ZZAOB 


. in z 

£000 

ZZADCt 

0 


. ? 7 7 l 

72*0 


CIA CMA 


. 7. ni 

«774 


JM3 X 

.♦2 

.2771 

5770 


JHP 1 

ZZAOC 

'.2774 

2600 


UAOCB 


.2775 

2000 

ZZAOB, 

0 


; 277* 

ana 


JMS X 

ZZAOB*! 

10777 

5775 


JMP I 

ZZAOB 


1000 


PAGE 



/ « 


'c.lse 


PAL8-V7 


IF2ER0 MACHINE* 

0005 LXMIT«TEN*3 

» 

IFNZRO MACHINE* 
LIMIT, 0 

> 


7022 *7022 


17022 0000 

17023 4200 

17024 9300 

17029 4201 

17028 5900 

17027 4302 

17030 5200 

17031 4303 

17032 5700 

17033 4404 

17034 3600 

17039 4110 

17036 7475 

17037 0000 

17040 4111 

17041 7675 

17042 0000 

17043 41 12 

17044 7476 

17045 0000 

17046 4111 


PERM3YM , 0 
XXPLUS, 4200> TEXT 

XX MINUS, 4201 1 TEXT 

XXSTAR, 43021 TEXT 

XX3LA3H,4303fTEXT 

XXUPARR, 44041 TEXT 

XXLE, 41 101 TEXT 

XX6E, 41111 TEXT 

XXNE, 41 12 JTEXT 


XXEO, 


m • 

/* 

* $ 

4 •* 

M* 

4>9 

»>» 


41111 TEXT 




MUB-V7 


17.3 


/£ rc 

,l«E 



1 70«7 

7576 



i 7250 

0000 



1 7 2-51 

4110 

xxEL# 

4110ITEXT 

17352 

7574 



17253 

0000 



1 7 25 A 

4105 

xxeq, 

41051 TEXT 

1 7355 

7500 



17056 

4106 

XXLT, 

4106;TEXT 

17057 

7400 



17060 

4107 

XXGT# 

41071TEXT 

17061 

7600 



17062 

4015 

XXCOMMA 

,40l5»TEXT 

17063 

5400 



17064 

4016 

XXSENI, 

4016; TEXT 

17063 

7300 



17066 

4017 

XXCLOSE 

,4017;TEXT 

17067 

5100 



17070 

4017 

XXRBRAK 

# 401 7 ; TEXT 

17071 

3500 



17072 

4021 

XXTO# 

4021 1 TEXT 

17073 

4024 



17074 

1740 



17073 

0000 



17076 

4022 

XX8TEP, 

4022; TEXT 

17077 

4023 



17100 

2403 



17101 

2040 



17102 

0000 



17103 

4023 

XXOPEN, 

4023;TEXT 

17104 

3000 



17103 

4023 

xxlbrak 

#4023;TEXT 

17106 

3300 



17107 

4024 

XXFN, 

4024; TEXT 

17110 

0616 



17111 

0000 



17112 

4025 

XXCOSi 

4025;TEXT 

17113 

0317 



17114 

2300 



17113 

4026 

XXTAN, 

4026; TEXT 

17116 

2401 



17117 

1600 



17120 

4027 

XX ATN# 

4027 ; TEXT 

17121 

0124 



17122 

1600 



17123 

4030 

XXLOG' 

4030; TEXT 

17124 

1417 



17125 

0700 



17126 

4031 

XXEXP# 

403UTEXT 

17127 

0530 



17130 

2000 



17131 

4032 

XX8QR# 

4032; TEXT 

17132 

2321 



17133 

2200 



17134 

4033 

XXABSf 

4033;TEXT 

17133 

0102 





*>• 

S' 

• ; * 

'1 ' 

* TO ' 

* STEP * 

'(' 

* 1 ' 

*FN* 

•COS* 

•TAN* 

* ATN* 
'LOO* 
*IXP* 
•SOP* 
'ASS* 



17156 

23 00 




17137 

4034 

X X SON p 

4034/TEXT 

'SGN* 

l 7 i <*e 

2307 




1 7 l a 1 

1620 




17142 

4035 

X X I NT , 

4035/ TEXT 

*INT* 

171«3 

1116 




1 7 1 <ia 

2400 




17145 

4036 

XXRND t 

4036 1 TEXT 

*RNO* 

17146 

2216 




17147 

0400 




17150 

4037 

XX SIN, 

4037 ; TEXT 

'SIN* 

17151 

2311 




17152 

1600 




17155 

4040 

XXPUT , 

4040 /TEXT 

• PUT* 

17154 

2025 




17155 

2400 




17156 

4041 

XXLI3T, 

4041 > TEXT 

•LIST* 

17157 

1411 




17160 

2324 




17161 

C000 




17162 

4041 

XXLISi 

4P4UTEXT 

*LI3* 

17163 

Mil 




17164 

2300 




17165 

4042 

XXRUNf 

40421 TEXT 

•RUN* 

17166 

2225 




17167 

1600 




17170 

4043 

XX3CR t 

4043/TEXT 

•SCR* 

17171 

2303 




17172 

2200 




17173 

4044 

XXGET f 

4044/TEXT 

•GET* 

17174 

0705 




17175 

2400 




17176 

4045 

X X ADC r 

4045/TEXT 

•ADC* 

17177 

0104 




17200 

0300 




17201 

4046 

XXTTY, 

4046/TEXT 

*TST* 

17202 

2423 




17203 

2400 




17204 

4047 

XXTIME, 

4047 /TEXT 

•TIM* 

17205 

2411 




17206 

1500 




17207 

4050 

XXTAB, 

4050/TEXT 

•TAB* 

17210 

2401 




17211 

0200 




17212 

4051 

XXUUF# 

4051/TEXT 

•UUF* 

17213 

2525 




17214 

0600 




17215 

4052 

XXCLS, 

4052/TEXT 

•CLS* 

17216 

0314 




17217 

2300 




17220 

4053 

XXCLC t 

4053/TEXT 

•CLC* 

17221 

0314 




17222 

0300 




17223 

4054 

XX ADR t 

4034/TEXT 

*ADB* 

17224 

0104 
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• LAE 


17225 

0200 




17226 

6000 

xxcrlp* 

60001 TEXT 

$ $ 
a 

17227 

3700 




1 7230 

6se0 

XX0SLSH 

, 60001 TEXT 


17231 

3400 




17232 

6001 

XXENO, 

60011TEXT 

'eno' 

17233 

0516 




17234 

0400 




17235 

6002 

XXFOR, 

60021 TEXT 

•FOR ' 

17236 

0617 




17237 

2240 




17240 

0000 




17241 

6003 

XXGOSUB 

1 60031 TEXT 

'GOSllB 

17242 

0717 




17243 

2325 




17244 

0240 




17245 

0000 




17246 

6004 

XXGOTOf 

6004 1 TEXT 

•GO TO 

17247 

071? 




17250 

4024 




17251 

1700 




17252 

0000 




17253 

6004 

XXTHEN, 

60041 TEXT 

• THEN 

17254 

4024 




17255 

1005 




17256 

1640 




17257 

0000 




17260 

6005 

XXIF# 

60051 TEXT 

'IP • 

17261 

1106 




17262 

4000 




17263 

6006 

XXXNPUT 

» 60061TEXT 

'INPUT 

17264 

1116 




17265 

2025 




17266 

2440 




17267 

0000 




17270 

6007 

XXLET i 

6007 1 TEXT 

'LET ' 

17271 

1405 




17272 

2440 




17273 

0000 




17274 

6010 

XXNEXT , 

60101TEXT 

'NEXT • 

17275 

1605 




17276 

3024 




17277 

4000 




17300 

6011 

XXPRINT 

,601UTEXT 

'PRINT 

17301 

2022 




17302 

1116 




17303 

2440 




17304 

0000 




17305 

6012 

xxretrn 

, 60121 TEXT 

'RETURN 

17306 

2205 




17307 

2425 




17310 

2216 




17311 

0000 




17312 

6013 

XX3T0P, 

60131TEXT 

'STOP' 

17313 

2324 
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use 



17-0 


17314 

1720 




1 7 3 1 5 

0000 




! 7 3 1 b 

6014 

XX01M, 

6014ITEXT 

'DIM ' 

17317 

2*11 




1 7?a? 

1540 




17381 

eaee 




1 7 322 

6015 

XXRSTOR 

,60l5lTEXT 

'RESTORE' 

17323 

2205 



- 

17 32,4 

2324 




17 3^5 

1722 




17326 

0500 




17327 

6016 

XXREM, 

60161 TEXT 

*REM * 

17330 

2205 




17331 

1540 




17332 

0000 




17333 

6017 

XXDEP , 

601 71 TEXT 

'OEP ' 

17334 

0405 




17335 

0640 




17336 

0000 




17337 

6020 

XXREAO i 

60201 TEXT 

'READ * 

m*i 

2205 




173«i 

0104 




17342 

4000 




17343 

6021 

XXDATA * 

6021 1 TEXT 

'DATA • 

17344 

0401 




17343 

2*01 




17346 

4000 




17347 

6024 

XXTTYI, 

60241 TEXT 

'TTY XN' 

173S0 

2424 




17351 

3140 




17352 

1116 




17353 

0000 




17354 

6023 

XXTTYO, 

60251 TEXT 

'TTY OUT' 

17355 

2424 




17356 

3140 




17357 

1725 




17362 

2400 




17361 

6026 

xxlpt, 

60261TEXT 

'LPT' 

17362 

1420 




17363 

2400 




17364 

6027 

XXPTR, 

6027 1 TEXT 

'PTP' 

17365 

2024 




17366 

2000 




17367 

6030 

XXPTR, 

60301 TEXT 

'PTR' 

17370 

2024 




17371 

2200 



/6031 HAS BEEN REMOVED 

17372 

6032 

XXRUB , 

60321 TEXT 

'RUB0UT8* 

17373 

2225 




17374 

0217 




17373 

2524 




17376 

2300 




17377 

6033 

XXNRUB, 

60331 TEXT 

'NO RUBOUTS* 

17400 

1617 






iT«03 

1725 


1740« 

2423 


I74e5 

0000 


17406 

6034 

xxclear 

17407 

0314 


17410 

0501 


174H 

2200 


17412 

6035 

xxdelav 

17413 

0403 


17414 

1401 


17415 

3100 


17416 

6036 

XXUSE t 

17417 

2523 


17420 

0540 


17421 

0000 


17422 

6037 

XXPLQT t 

17423 

2014 


17424 

1724 


17425 

4000 


17426 

6040 

XXREAL, 

17427 

2205 


17430 

0114 


17431 

4024 


17432 

1113 


17433 

0540 


17434 

0000 


17435 

6041 

XXSETR , 

17436 

2305 


17437 

2440 


17440 

2201 


17441 

2405 


17442 

4000 


17443 

6042 

XXSETC, 

17444 

2305 


17445 

2440 


17446 

0314 


17447 

1703 


17430 

1340 


17451 

0000 


17452 

6043 

XXWAITC 

17453 

2701 


17454 

1124 


17455 

0300 


17456 

6044 

YYWAXT, 

17457 

2701 


17460 

1124 


17461 

0000 


17462 

6045 

XXUCQM, 

17463 

2503 


17464 

1713 


17465 

4000 


17466 

6046 

XXACPTf 

17467 

0103 



60341 TEXT 'CLEAR* 

6035| TEXT 'DELAY # 

6036? TEXT 'USE ' 

6037 f TEXT 'PLOT * 

60407 TEXT 'REAL TIME 

604 1 7 TEXT 'SET RATE 

60427 TEXT 'SET CLOCK 

60437 TEXT 'WAITC' 

6044 7 TEXT 'WAIT' 

60457 TEXT 'UCOM • 

60467 TEXT 'ACCEPT' 



/Wic.iae 
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17470 0105 

17471 ecaa 

17472 0000 

17473 6247 XXREJT, 6047/TEXT 'REJECT* 

17474 2205 

17475 1205 

17476 0324 

17477 0000 


17500 0000 0 


17501 3000 XXTEXT , 3000 

17502 6023 XXEOF # 6023 

17503 4113 XXUNARY #4113 

17504 4014 XXFZNZ, 4014 

17505 6022 XXEXZTi 6022 

17506 2000 XXLZT0, 2000 J 200 it 2002 1 2003 

17507 2001 

17510 2002 

17511 2003 


17512 

0000 

NOPUNCH 
LZNBUF f 

ZBLOCK 

51 

17563 

0000 

LBEGINi 

ZBLOCK 

60 

17643 

0000 

ENDLIN, 

0 


17644 

0000 

P0LZ8T, 

ZBLOCK 

40 

17704 

0000 

ENDPDLf 

0 


17705 

0000 

FORLZST 

» ZBLOCK 

20 

17725 

0000 

GOLZST , 

ZBLOCK 

30 

17755 

0000 

GSBEND, 

0 




8 

ENPUNCH 



pHr 17*10 




/£ic, 

.lbe 
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ASCCEF 

U56 

8EGFIX 

3762 

OSXSRT 

7547 

EXPOK 

5265 

ABOGET 

em 

SIDLE 

6713 

DBLXT 

7526 

FAO 

4000 

a bop 

£325 

BKWD 

0600 

DBPUT 

7556 

fadext 

1314 

ASS 

ba25 

BREAK 

6522 

ODLAST 

7512 

FAQ! 

4400 

ACCEPT 

7A73 

B3KIP 

2730 

decexp 

0043 

FATNAX 

6273 

ACE 

0025 

BUST 

6737 

OECFRA 

3366 

FATNC 

6337 

4CN 

46 i 7 

CARRET 

2700 

DEEPER 

0526 

FATNCH 

6342 

acourt 

an 

CCXRTK 

7465 

OEF 

1576 

FATNC J 

6345 

ACS 

2824 

CCXRA 

7342 

OELAY 

7463 

FATNCt 

6304 

AC! 

0220 

COEVCO 

0000 

DELETE 

6501 

FATNC2 

6307 

AC2 

2217 

CDINP 

7445 

DELOUT 

0142 

FATNC3 

6312 

ACS 

0216 

CHECK W 

2346 

OEVCOM 

7175 

FATNC4 

6315 

adacpt 

2027 

CHKFIT 

6400 

DEVCON 

7176 

FATNC5 

6320 

ADA! 

0025 

CLAB 

6133 

DICO 

6051 

FATNC6 

6323 

ADA2 

2026 

CUBA 

6136 

DXGIN 

3224 

FATNCT 

6326 

ADAS 

0027 

CLC 

7477 

DIGIT 

3204 

FATNC8 

6331 

ADB 

7477 

CLC A 

6137 

OIGLUP 

6557 

FATNC9 

6334 

ADC 

7477 

CLEAR 

7432 

DXLC 

6050 

FATNSX 

6272 

ADCCOR 

0064 

CLEARV 

2462 

dile 

6056 

FATNT 

6276 

ADCL 

6530 

clen 

6134 

DXLX 

6053 

FATNTT 

6301 

ADCUMT 

0010 

CLKSTf 

0003 

OILY 

6034 

FCNTLC 

6665 

AOCX 

0012 

CLOCK . 

0175 

DIM 

6472 

FCNTLO 

6703 

ADORES 

0067 

cloe 

6132 

DXMFLA 

0034 

FDXGXT 

3360 

ADLE 

6536 

CLRCNT 

0360 

DXNP 

7311 

FDV 

7000 

ADLM 

6531 

CLS 

7477 

DIRE 

6057 

FOVX 

7400 

ADR# 

6533 

CLSA 

6135 

DXSAUT 

0013 

FENTER 

4435 

ADRS 

6537 

CL8K 

6131 

0XS8 

0136 

FEXIT 

0000 

AOSE 

6535 

CLTEHP 

0011 

DXSD 

6052 

FEXPC1 

6072 

ADSK 

6534 

CLZE 

6130 

OIVLP 

4705 

FEXPC2 

6075 

ADST 

6532 

CNCLR 

0143 

OXVXTE 

3364 

FEXPC3 

6100 

A6ET 

0301 

CNTLCP 

6700 

DIXY 

6053 

FEXPC4 

6103 

AlGNLP 

4466 

cntlcr 

6670 

OLAST 

7511 

FEXPC5 

6106 

ALLOC 

1461 

CNTLO 

0133 

DOAD 

0362 

FEXPC6 

6111 

ALLS 

3146 

COOELO 

0004 

DOADLP 

0366 

FEXPF 

6067 

ALTMOD 

2663 

COLUMN 

0126 

DOITNO 

1247 

FEXPI 

6061 

AL1 

4654 

COMMON 

3400 

DOTZER 

7371 

FEXPU 

6064 

AMATCH 

6506 

COMPAR 

2136 

OPFLAG 

3365 

FXNOXT 

0557 

ANORH 

4600 

CONST 

1367 

DQXNTX 

3170 

FXNDLU 

0565 

APUT 

0263 

COS 

5616 

D8GREW 

0375 

FIX 

4744 

APUTt 

0023 

COWT 

7326 

OVLOOP 

5245 

FIXEXI 

4773 

, APUT2 

0024 

COWTFP 

7343 

EDIT 

2405 

FIXITU 

5200 

ARGERR 

7363 

COWTLP 

7331 

END 

2567 

FIXLIN 

2113 

ARRLOC 

0003 

COWTO 

7340 

ENOLXN 

7643 

FXXLUP 

4750 

API 

4402 

COWTW 

7344 

ENDNUM 

3331 

FIXUP 

5146 

ATERP 

0323 

CRINTX 

3076 

ENDPOL 

7704 

FJMP 

1000 

ATERP2 

0324 

CRLP 

6531 

EOFAD 

4526 

FJMPI 

1400 

1 , ATLIRE 

ATR 

6451 

crlfpr 

3740 

EPTR 

0056 

FJUMP 

1130 

6200 

CT1 

0016 

ERROR 

4142 

FLD 

3000 

ATN8IG 

6265 

CT2 

0015 

EVAL 

1004 

FLDI 

3400 

ATRLOp 

6220 

CT3 

0014 

EVAL60 

1007 

FL0GC1 

6172 

atrnot 

6237 

CVTLOO 

5024 

EXECUT 

0213 

FL0GC2 

6153 

AUTEMP 

0063 

OATAER 

1667 

EXIT 

2402 

FL0GC3 

6156 

6ARROP 

2666 

dbad 

7513 

EXP 

6000 

FL0GC4 

6161 

9CDEPG 

1757 

OBBAD 

7532 

EXPGOO 

5242 

FMP 

6000 

BC**OS 

4502 

OBGOT 

7420 

EXPLON 

5764 

FMPI 

6400 



FMTfNF 5123 
5125 
f* rg sess 

fktj 5130 

Fn S«53 

FNERR 03S2 
FnEXXT 1200 
FOR 0413 
FORCT 0063 
FOROON 0663 
FORERR 6501 
FORtXH 0721 
FORLXS 7705 
FORSTE 0724 
FORVAR 0452 
FOUND 0575 
FOURLF 3557 
FP ADD 4456 
FPADDR 4304 
FPOXV 4667 
FPDOIT 4237 
FPFlAG 0156 
FP60T0 4273 
FPJMP 4317 
FP JUMP 4274 
FPLAC 4351 
FPLOOP 4202 
FPMUL 4530 
FPNOAD 4270 
FPOPER 4305 
FPP62 4227 
PPSKXP 4316 
FP3TO 4322 
FP9UB 4453 
FPT 4200 
FPTEMP 4576 
FPTP 0057 
FPZOXV 4736 
FRNOX 5404 
FR8TNE 2155 
F80 5000 
FS0X 5400 
F$CC 0050 
FSGE 0100 
F06T 0140 
F3MIFT 7443 
F3INC1 5713 
F3ISC3 5716 
F8XNC4 5721 
F8INC5 5724 
F8INC6 5727 
F3XNC7 5732 
F8I6H4 5735 
F8XN0K 5657 
FSINZ 5705 


F8INZZ 5710 
F3XN10 5641 
F3LE 0150 
F3LT 0110 
FSNE 0040 
F8QRX 5407 
F3T 2000 
F3T I 2400 
FTANTl 5677 
FTANT2 5702 
FUNTAB 1131 
FUPRC1 5762 
FWO 0200 
FXXPFX 6023 
GALT 7247 
G0XM2 1564 
GET 0001 
GETADD 1400 
GETARY 7462 
GETBLK 1674 
GETCH 7201 
GETJ 1770 
GETLXN 2603 
GETLRE 2600 
GETOPR 1015 
GETVAR 0311 
GETWD 0177 
GLOOP 2711 
GOBOTH 0532 
G0LX8T 7725 
G03UB 0505 
GOTEMP 0053 
GOTO 0517 
GOTOPR 1202 
G0TS3 1074 
GOTSTE 0634 
GOUT 7251 
GPTR 0060 
GRB 7224 
GRDEIA 7222 
G8BEND 7755 
GSBPTR 0165 
G381 1562 
G332 1563 
GTBKLP 1710 
GTEMP 7254 
GWHERE 7270 
HFOUND 7321 
HXGHWD 4333 
HLOOP 2722 
HPTR 0061 
HRCHAR 7256 
HRLOP 7302 
HRME8 7323 
IAMLE8 2156 


XOLEAC 6732 
XOLECO 6725 
XCLECX 6726 
IOLELK 6731 
10LEPC 6733 
XF 0375 
IGNORE 2115 
IXXR 7414 
IMMEO 2454 
XN 3431 
XNCHAR 7255 
XNOEV 0127 
XNOEX1 0013 
XN0EX2 0014 
INLCTM 4065 
XNLOOP 0572 
XNLUPF 0432 
XNODUN 6710 
XNOPPP 6641 
INOTTT 6645 
XNPLUP 4034 
XNPPTR 4063 
INPUT 4007 
INSERT 2032 
XN8RT5 2030 
XNT 6434 
INTAC 6734 
XNTCDF 6770 
XNTCXF 6771 
XNTECO 6762 
INTEMP 6736 
INTER 6600 
INTEXT 6744 
XNTL 6735 
XNTOU 6765 
XNMDTM 4064 
XPNOPE 4024 
XPOXNT 7034 
X30EF2 3512 
X3DX6 6532 
X30XM 1473 
X8ET 7407 
X8XT 4566 
X8XTDF 0550 
X3XTFU 1110 
XSXTLX 4104 
X8LXT 4133 
XS90ME 1644 
X8UMXN 1013 
XT3DEF 3514 
XT3DP 3256 
XTSE 3263 
ITSOP 1220 
IT8P 3300 
JBPINT 3707 


JOXGXT 3124 
JXSOXG 3367 
JMATCM 2766 
JPUTCH 0777 
JTXXIT 3123 
JUST0 3150 
JUST0F 3160 
JUST0P 3163 
JUSTl 3145 
JUST2 3147 
KEVWD 0231 
LBEGXN 7563 
LCF 6662 
LET 0312 
LETOO 0205 
LETTER 3446 
LFXLUP 2333 
LHALF 3070 
LIMIT 0003 
LINBUF 7512 
LXNENO 0052 
LXNFXX 2330 
LIST 3600 
LISTAL 3616 
LXSTLU 3620 
LXSTSO 3617 
LXST2 3640 
LISTS 3655 
LIST4 3661 
LISTS 3676 
LXTRAl 3131 
LILJMP 7457 
LLLJM3 7446 
LLLUUU 7140 
LLS 6666 
LNOEND 3630 
LOADED 4127 
LOCCTR 0045 
LOCTEM 0671 
LOCTMP 1673 
LOG 6114 
LOGACE 6165 
LOOFMD 6164 
LOGOKW 6167 
LOMLOC 2171 
LPTOUT 7163 
L8F 6661 
LSTLOC 2160 
LUP 3405 
LUFF 0426 
L4LUP 3664 
MACHXN 0000 
MAYZER 4612 
MENOLX 0041 
MCNDPO 2363 



I C » L 8 E 

m£ V At 7 <* 1 5 
MtVAtG 7 A3 1 
MGOtlS 0720 
MGSBEN 0525 
MINUS 1316 
HLdEGl 0173 
mlENO 0174 
HtlNdu 0040 
HNSONE 0736 
MOttEOX 6470 
MORE IN 4000 
MORERO 1621 
MOVE 2012 
MOVtUP 2072 
MPT 5321 
MPYLUP 4552 
MTV X IT 3201 
MUICLR 4571 
MULEXP 3346 
MUIXTE 3363 
MUSTBE 4570 
NOELAY 7420 
NEWCHA 2615 
NEWtIN 2610 
NEXT 0600 
NEXTER 0673 
NEXTVA 0637 
NXNTEC 7457 
NOBUMP 4633 
NOCOMM 0335 
NOINT 0134 
NONBLN 3110 
NONZER 5016 
NOPARE 1035 
NOPCR 2216 
NORLFT 6423 
NORMEO 5220 
NORMIT 5207 
NORUBO 5574 
N0881 1460 
NOS82 1453 
NOT 3427 
NOTBAD 2127 
NOTBIG 4620 
NOTCR 3023 
NOTFRS 2061 
NOTHER 0435 
NOTKWO 0313 
NOTNOW 2000 
NOTSGN 3301 
NOTTXT 2236 
NOTVAR 1105 
NOTX10 5236 
NP8PER 7555 
NSYMTA 0006 


NUtCMO 7454 
NUL JOB 7415 
NULLOP 7430 
NUMBuF 5335 
OAOO 4435 
08HIGH 1177 
OBLOW 1165 
OBOP 7101 
OCC 5205 
OCMLXM 7115 
OCOR 7113 
OCOUNT 7042 
OOEV 0132 
OFLAG 7100 
OFLOW 7115 
0 JUMP 1276 
OLDOP 0066 
ONE 0151 
ONEOXM 1064 
0NE8S 1076 
ONLYl 3322 
007 60(, 5452 
007736 2326 
OPOONE 1203 
OPE 0030 
OPERAN 0073 
OPNUL 7067 
OPOXNT 7065 
OPOTAB 7073 
OPRST 7155 
0P8 0026 
OPUTC 7041 
0P1 0023 
0P2 0022 
OPS 0021 
OTEMP 1271 
OTHER 3000 
0T3T1 7112 
OUTDEL 7146 
OUTDEV 0131 
0UT02 0130 
OUTIT 7043 
OUTNUM 5000 
OV 0012 
01000 3550 

011 0504 
0110 2361 

012 0065 
0122 2771 

013 1567 
0132 7265 
0137 7161 

014 2360 
O140A 0775 
O140B 2772 
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P^) IF.13 


0143 

7266 

07612 

7262 

017 

5147 

O7640A 

0765 

01742 

3375 

076408 

2763 

0175 

7247 

076400 

7263 

0177 

0027 

07673 

3316 

01774 

3376 

077 

0070 

02 

0062 

O7706A 

6544 

0200 

0155 

O7706C 

3473 

O2040A 

3373 

07715 

2775 

02062 

5344 

07725A 

3100 

0212 

0010 

077255 

3371 

0215 

0007 

07737 

3122 

023 

1366 

07740 

0054 

0233 

3772 

07741 

3745 

0240 

0051 

07743 

4743 

0253 

5150 

07745 

0162 

0255 

5151 

07746 

7264 

0256A 

5156 

07753 

3104 

0256B 

6575 

07762 

2327 

0260 

0011 

07763A 

0774 

027 

3370 

07763B 

3101 

0305 

5152 

07764A 

1274 

032 

3121 

07764B 

3102 

036 

2767 

07764C 

3374 

03737B 

2773 

07764D 

6777 

03754 

1162 

07766 

5154 

03755 

1273 

07770 

0055 

0377 

0071 

07771 

515$ 

04 

0160 

07772 

5157 

040 

2770 

07773 

5346 

04001 

7525 

07774 

1566 

04014 

1163 

07775 

6776 

042 

3106 

07776 

3372 

04200 

3105 

07777 

7114 

04213 

1164 

PACN 

4742 

05400 

5347 

PALI 

0150 

06201 A 

6615 

PANORM 

0146 

O6201B 

7005 

PARGER 

0047 

06202 

6775 

PARI 

0147 

07 

0072 

PA8SCR 

0472 

070 

6774 

PA89UM 

7440 

0700 

1272 

PBEGPI 

1776 

O7000A 

2560 

PBXDLE 

7161 

O7000B 

3474 

PBOMB 

0367 

O7000C 

7456 

PBUSY 

7157 

07077 

1275 

PCCUNT 

0744 

07520 

5153 

PCHKPX 

0163 

07545 

4777 

PCOMMO 

3357 

07570 

6456 

PCOWT 

0141 

07577 

4577 

PDEVCO 

7442 

07577B 

7554 

POL 

0036 

07600 

4345 

POLIST 

7644 

07601 

7260 

PIOXT 

0120 

07603 

2774 

PERM8Y 

7022 

07610 

5345 

PERROR 

0077 



/Axe, 
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PALS-V7 


17»14 

PEVAL 

0101 

PPASSC 

0110 

putloc 

2172 

SLOOP 

2707 

pevalg 

2240 

PPOLIS 

0125 

putlp 

7007 

SL8HTM 

1337 

PExECu 

0103 

PPERM8 

2565 

PUTXRA 

0776 

SNUMFL 

0064 

PEXP 

57 7b 

PPFLOO 

4741 

PXFORL 

0556 

SPACER 

0370 

PPIND1 

0672 

PPFORL 

1760 

PXLXNB 

3746 

SPEC IN 

0140 

PF IX 

0106 

PPINT 

6060 

PXXCRL 

3125 

spleft 

0144 

PFNERR 

5546 

PPOP 

0105 

PXXEOF 

2564 

SQEXXT 

5450 

PFPLOO 

4575 

PPRlNR 

2241 

PXXEXX 

3126 

SQLOOP 

5435 

PGETAO 

0102 

PPRINT 

0114 

pxxlit 

3130 

SQR 

5412 

PGETBL 

0115 

PPRINU 

0123 

PXXTHE 

2562 

SSERR 

1570 

PGETCH 

0032 

PPUSM 

0104 

PZEROO 

6545 

8SFXX 

4775 

pgetli 

0124 

PPUTCH 

0033 

qbxdle 

7257 

SSONE 

0344 

PGETUP 

3022 

PPXRA 

7160 

QERROR 

4170 

SSTMO 

0345 

PGETOP 

0111 

PRENT 

2316 

QHRCHA 

7156 

STAR 

1327 

pgetva 

0113 

PRESET 

0137 

RANDAE 

0451 

START 

1000 

PGOLIS 

0164 

PRINBL 

2277 

RBSWCH 

0135 

STICK! 

6430 

PGOTOP 

0107 

PRINCO 

2303 

READ 

1623 

STOP 

2570 

PHRCHA 

6740 

PRXNHA 

2260 

REAOLO 

0046 

8T0VAR 

0341 

PXGNOR 

0471 

PRXNQU 

2225 

READY 

6525 

SUBRA 

2161 

PINCHA 

6741 

PRINRE 

2242 

REALTI 

7473 

SXERR 

6441 

PINT 

5676 

PRXNSE 

2312 

REJECT 

7473 

TAB 

5547 

PXSITU 

0175 

PRINT 

2173 

RELATE 

1342 

TABOES 

6367 

PJ8ET 

2461 

PRXNTC 

2207 

REMPAC 

3043 

TABOO 

6350 

PLBEGX 

0172 

PRXNTG 

2206 

RESET1 

7116 

TABFLG 

2345 

PLETDO 

0204 

PRXNTH 

2222 

RESETS 

7141 

TABOK 

6360 

PLETTE 

3103 

PRXNTX 

3702 

RESTOR 

3773 

TABTHR 

2362 

PLIMXT 

2561 

PRXNUH 

3747 

RETNER 

0713 

TAN 

5600 

PLINBU 

0037 

PRINVA 

3653 

RETURN 

0677 

TBEGFX 

5572 

PLXNFX 

0161 

PRLOOP 

3711 

rhalf 

3074 

TEN 

0000 

PLIST 

2563 

PRSUBR 

3724 

RMLEFT 

6413 

THESKX 

1353 

PLITRA 

3377 

PRTEMP 

0042 

RND 

5353 

THXSTX 

3107 

PLOG 

5775 

PRTXRE 

3722 

RNDJMP 

5350 

TIM 

7477 

PLOT 

7400 

PSGN 

5675 

RTERR 

7373 

TXM1 

0004 

PLOTB 

7S14 

PSKIPI 

1617 

RUBO 

5573 

TIM2 

0005 

PLUS 

1312 

PSLOOP 

0116 

RUN 

2452 

TMP 

0031 

PHEVAL 

7441 

PSPACE 

1565 

RUNXN 

2503 

TOOLON 

5162 

PMPY 

5160 

PSTXCK 

0121 

RUNLUF 

2465 

TPRINT 

6370 

PN0P6 

5161 

PSTOVA 

0112 

RUNNOT 

2477 

TRALUP 

2105 

PNOCR 

0757 

PSXERR 

0100 

RUN2XN 

2543 

TRANSF 

2103 

pnonbl 

0122 

PSYMTA 

0005 

RUN2LU 

2514 

TRYAGX 

5133 

PNOTNO 

2566 

PTABOE 

5570 

RUN2NO 

2537 

TRYSTE 

0626 

PNUHBU 

0044 

PTABFL 

5571 

SCHMOR 

1657 

TST 

7421 

POAOD 

0157 

ptable 

2777 

SCRATC 

2440 

T8TFX 

7417 

POFLAG 

6742 

PTEN 

0145 

SEARCH 

1660 

TSTP 

7431 

pop 

3551 

PTEXT 

0076 

SETCLO 

7473 

TTYXN 

7173 

POPEPA 

3127 

PTPOUT 

7164 

SETRAT 

7473 

TTYOUT 

7165 

POP3 

4434 

PTRIN 

7172 

SET8GN 

4512 

TUBXG 

2657 

pother 

2776 

PTU8IG 

3021 

SETUP 

7400 

TWXDTH 

2357 

POUTIT 

6743 

PUSERF 

5545 

SGN 

0726 

TMOSS 

1077 

POUTNU 

0117 

PUSH 

2364 

SIMPLY 

3466 

TXTPAK 

3046 

PP ACE 

0045 

PUTCDF 

7037 

SIN 

5624 

UABAD 

0620 

PPACS 

0046 

PUTCH 

0741 

SXNCHA 

7162 

UACCPT 

0453 

PP AC 1 

0042 

PUTCIN 

7023 

S JUMP 

0240 

UAC1 

0037 

PPAC2 

0043 

PUTER 

7000 

SKXPIT 

0467 

UAC2 

0040 

PPAC3 

0044 

PUT J 

1761 

slash 

1332 

UAC3 

0041 



^IC. 

L»C 



PAL8-V7 

<# 

17-15 

UAOCB 

06£2 

UUUJMP 

0730 

XXEG 

7054 

XXTAB 

7207 

UAOCJ* 

2613 

UUUJMS 

0721 

XXEXXT 

7505 

XXTAN 

7115 

UAOCHf 

£%15 

UUULLL 

0352 

XXEXP 

7126 

XXTEXT 

7501 

i.iaOCn 

£ 6 f 2 

UVP 

7502 

XXFINI 

7504 

XXTHEN 

7253 

uCUC 

£345 

UWAIT 

0437 

XXFN 

7107 

XXTXME 

7204 

UCLPOP 


UWAITC 

0440 

XXPOR 

7235 

XXTO 

7072 

UCL8 

£343 

U1P 

7503 

XXGE 

7040 

XXTTV 

7201 

UDEVCO 

2256 

U10 

0036 

XXGET 

7173 

XXTTYX 

7347 

UDOAO 

2351 

U 1 00 

0013 

XXGOSU 

7241 

XXTTVO 

7354 

HOOPER 

1363 

U17 

3047 

XXGOTD 

7246 

XXUCOM 

7462 

UFFuO 

e*56 

U177 

0017 

XXGT 

7060 

XXUNAR 

7503 

UF JMP 

3757 

U2P 

7504 

XXIP 

7260 

XXUPAR 

7033 

UGETWD 

3357 

U4707 

0020 

XXXNPU 

7263 

XXUSE 

7416 

UGHl 

3562 

U5010 

0034 

XXINT 

7142 

xxuup 

7212 

uiexr 

3234 

U7 

0033 

xxlbra 

7105 

XXWAIT 

7452 

UIEXT2 

0243 

U7760 

0052 

xxle 

7035 

YYWAXT 

7456 

UIEXT3 

0245 

U7767 

0035 

xxlet 

7270 

ZEROON 

5144 

UIEXT4 

0260 

U7775 

0021 

XXLXS 

7162 

ZERO 

0152 

UINAC 

0631 

U7777 

0050 

XXLXST 

7156 

ZPXXEX 

4767 

UJMP 

0054 

VAR 

0343 

XXLIT0 

7506 

ZZAOB 

0775 

UJMS 

££55 

VARTEP 

2553 

XXLOG 

7123 

ZZ ADC 

0770 

UMEVAL 

0231 

VSCHU 

3524 

XXLPT 

7361 



UMOPER 

1321 

VSCHLU 

3475 

XXLT 

7056 



UNOERP 

4645 

VSCHNO 

3520 

XXMXNU 

7025 



UPAGET 

0653 

WAIT 

7473 

XXNE 

7043 



UPARRO 

6457 

WAITC 

7473 

XXNEXT 

7274 



UPARRX 

5740 

WDTEMP 

1075 

XXNRUB 

7377 



UPARR2 

4365 

WORD 

0050 

XXOPEN 

7103 



UPCOHO 

0731 

XEXECU 

0412 

XXPLOT 

7422 



UPPIX 

0032 

XGI3IT 

4066 

XXPLU8 

7023 



UPPUN 

0747 

XGMUST 

7345 

XXPRXN 

7300 



UPJHP 

0736 

XISXT 

4073 

XXPTP 

7364 



ureal 

0460 

XMUST 

7352 

XXPTR 

7367 



UREJT 

0456 

XRESTA 

1003 

XXPUT 

7153 



USE 

7446 

XXABS 

7134 

XXRBRA 

7070 



USERPN 

1620 

XXACPT 

7466 

XXREAD 

7337 



USETC 

0411 

XXADB 

7223 

XXREAL 

7426 



USETP 

0550 

XX ADC 

7176 

XXREJT 

7473 



USETH 

0416 

XXATN 

7120 

XXREM 

7327 



USETR 

0400 

XXBSLS 

7230 

XXRETR 

7305 



USKIPI 

7461 

XXCLC 

7220 

XXRND 

7145 



UTEMP 

0053 

XXCLEA 

7406 

XXR8T0 

7322 



UTIH 

0541 

XXCLOS 

7066 

XXRUB 

7372 



UUAC1 

0654 

XXCLS 

7215 

XXRUN 

7165 



UUAC2 

0661 

XXCOMM 

7062 

XXSCR 

7170 



UUAC3 

0666 

XXCOS 

7112 

XXSEMI 

7064 



UUOATA 

7567 

XXCRLP 

7226 

XX8ETC 

7443 



UUOEVC 

0705 

XXDATA 

7343 

XXSETR 

7435 



UUPUOG 

0735 

XXOEP 

7333 

XX8GN 

7137 



UUJ*P 

0722 

XXDELA 

7412 

XXSIN 

7150 



UUJMS 

0707 

XXDIH 

7316 

XXSLAS 

7031 



UUMEVA 

0673 

XXEG 

7046 

XXSQR 

7131 



UUNOAO 

7460 

XXEL 

7051 

XX8TAR 

7027 



UUPFIX 

0677 

XXENO 

7232 

XX8TEP 

7076 



UUSETF 

0030 

XXEOP 

7502 

XX8T0P 

7312 





